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Abstract 

This  thesis  provides  alternatives  to  the  explanation  that  spatial  filtering  is  responsible 
for  the  perception  of  illusory  contours  in  the  Kanisza  Triangle  illusion.  Sx)ecifically,  we  use 
a  Multiresolution  Wavelet  Decomposition  to  divide  an  image  into  spatial-frequency  bands 
that  are  used  as  inputs  to  three  biologically  motivated  models.  The  thesis  includes  a  brief 
tutorial  of  Wavelet  theory  and  an  in-depth  explanation  of  our  implementation  of  recently 
published  algorithms  for  Multiresolution  Wavelet  Analysis.  The  first  model  is  based  on 
the  saccadic  movements  of  the  human  eye.  It  demonstrates  the  importance  of  the  high 
spatial-frequency  content  of  an  image  in  the  formulation  of  the  illusion.  The  second  model 
is  based  on  the  serial  architecture  of  the  data  transmission  channel  between  the  retina  and 
the  visual  cortex  of  the  brain.  It  demonstrates  the  importance  of  low  temporal-frequency 
characteristics  of  the  build-up  of  the  visual  world  model.  The  third  model  considers  only 
the  high  spatial-frequency  content  of  the  image.  It  consists  of  lateral  excitation  networks 
that  serve  to  simulate  the  local  high  spatial-frequency  energy  interactions  that  contribute  to 
illusory  contours. 
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ANALYSIS  OF  VISUAL  ILLUSIONS 
USING 

MULTIRESOLUTION  WAVELET  DECOMPOSITION 

BASED  MODELS 


I.  Introduction 


1.1  Background 

By  today’s  computer  standards,  the  individual  processing  elements  of  the  human  brain 
process  information  extremely  slowly,  yet  its  capabilities  cis  a  whole  far  outpace  even  the 
fastest  supercomputers.  The  secret  of  its  success  has  eluded  researchers  for  decades.  Some¬ 
how  the  brain  manages  to  reduce  vast  amounts  of  environmental  data,  discarding  unimpor¬ 
tant  details.  This  concept  was  best  expressed  by  the  poet  William  Blake  when  he  wrote, 
“If  the  doors  of  perception  were  cleansed  everything  would  appear  to  man  as  it  is,  infinite.” 
Perception  creates  in  the  brain  a  model  of  the  world  using  only  a  small  part  of  the  infinity  of 
information  contained  in  reality.  But,  sometimes  the  lack  of  a  complete  picture  causes  ambi¬ 
guities  which  the  brain  perceives  incorrectly.  One  such  misperception  is  visual  illusion.  The 
hope  is  that  by  studying  the  brain’s  failures  we  can  gain  better  insight  into  its  function.  To 
this  end,  we  seek  the  best  mathematical  model  for  the  visual  system  that  explains  illusions. 

1.8  Problem 

This  paper  proposes  a  thesis  in  which  three  models  of  the  human  visual  system  are 
based  on  a  relatively  new  mathematical  theory.  Wavelets.  The  models  are  specifically  de¬ 
signed  to  study  spatial  and  spatial/temporal  visual  illusions.  The  thesis  develops  the  algo¬ 
rithms  and  software  necessary  to  decompose  two  dimensional  images  of  visual  illusions  in 
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terms  of  wavelet  bases.  The  thesis  research  includes  experiments  involving  manipn’citions  of 
the  decomposed  image  based  on  current  knowledge  and  conjecture  of  possible  human  visual 
system  processing.  Included  in  the  evaluation  of  the  resulting  images  is  a  comparison  with 
previous  work  in  this  area. 


1.3  Assum-ptions 

The  assumption  on  which  this  thesis  depends  is  theoretical  in  nature.  We  assume  that 
human  cerebral  processing  includes  some  type  of  spatial  frequency  and  spatial  orientation 
selectivity.  The  choice  of  wavelet  analysis  as  the  method  of  decomposition  is  ba.sed  on  this 
assumption.  In  fact,  the  purpose  of  proposing  a  wavelet  model  of  the  visual  system  is  to  test 
this  cissumption  through  the  evaluation  of  visual  illusions  with  that  model.  The  assumption 
of  frequency  and  orientation  selectivity  in  the  brain  is  motivated  by  a  deeper  assumption  that 
the  observed  behavior  of  the  visual  cortex  of  the  cat  and  the  monkey  discussed  in  Chapter 
II  is  a  good  indication  cf  the  behavior  of  the  human  visual  cortex. 

l.Jf  Scope 

This  effort  is  limited  to  the  following: 

•  A  description  of  the  mathematical  theory  of  Wavelet  Analysis. 

•  A  description  of  the  proposed  visual  models  based  on  Wavelet  Decomposition,  modifi¬ 
cation  of  the  decomposed  illusions,  and  Wavelet  Reconstruction. 

•  An  analysis  of  the  results  produced  by  processing  various  static  illusions  with  the  model 
and  comparison  with  previous  work  in  the  area  of  visual  illusions. 

•  The  software  source  code  used  to  implement  the  models  along  with  adequate  docu¬ 
mentation. 

It  is  not  the  charter  of  this  thesis  to  attempt  to  completely  explain  visual  illusions.  Such 
an  explanation  w'ould  require  philosophical  and  p.sychological  examination.  This  type  of 
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examination  is  left  to  experts  in  those  realms.  The  thesis  is  limited  to  a  study  of  visual 
illusions  based  solely  on  engineering  analysis. 

1.5  Standards 

All  software  written  for  this  thesis  is  in  the  ANSI  standard  C  programming  language. 
All  source  code  employs  structured  programming  techniques  such  that  the  code  may  be 
easily  modified  and  maintained  by  future  research  efforts.  The  code  is  compileable  on  any 
computer  system  that  possesses  an  ANSI  standard  C  compiler.  We  use  standard  image 
processing  techniques  to  modify  the  decomposed  images.  A  further  explanation  of  these 
techniques  may  be  found  in  an  image  processing  text  such  as  the  one  by  Gonzalez  [15]. 

1.6  Approach/Methodology 

First,  this  thesis  provides  a  written  description  of  Wavelet  Analysis.  This  description 
contains  the  information  necessary  for  a  reader  with  a  background  in  Electrical  Engineering 
to  comprehend  the  mathematical  basis  for  the  proposed  model.  Next,  research  focuses  on 
the  development  of  the  software  that  performs  the  first  part  of  the  processing  required,  that 
of  Multiresolution  Wavelet  Decomposition  of  two  dimensional  images  and  one  dimensional 
signals.  This  software  is  based  on  an  algorithm  developed  by  Mallat  [28].  The  bulk  of  the 
effort  and  the  heart  of  the  research  lies  in  the  development  and  use  of  the  proposed  models 
to  discover  the  appropriate  modifications  of  the  decomposed  image  necessary  to  explain  the 
illusion.  This  task  is  the  original  effort  of  the  thesis  and  requires  considerable  experimenta¬ 
tion.  The  evaluation  criteria  for  these  modifications  is  comparison  with  the  original  illusion. 
Finally,  the  thesis  provides  documentation  of  the  results  and  a  complete  description  of  the 
models.  It  includes  an  evaluation  of  the  results  as  evidence  of  the  correctness  of  the  models 
as  possible  engineering  explanations  of  visual  illusions. 
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1.7  Conclusion 


The  body  of  this  thesis  is  logically  divided  to  take  the  reader  smoothly  from  background 
to  supporting  theory  to  application.  Chapter  II  is  a  review  of  the  works  of  Ginsburg  and 
Oberndorf  investigating  low  spatial-frequency  contributions  to  visual  perception.  Chapters 
III  and  IV  provide  the  theory  of  Wavelet  Analysis  and  its  application  in  Multiresolution 
Analysis  respectively.  These  two  chapters  represent  a  collaborati\ effort  with  Steven  Smiley. 
The  same  material  can  be  found  in  the  corresponding  chapters  of  his  masters  thesis,  “Image 
Segmentation  Using  Affine  Wavelets”  [41].  Next,  Chapter  V  compares  the  low  spatial- 
frequency  approximation  provided  by  the  Multiresolution  W^avelet  Decomposition  to  the 
results  of  Ginsburg  and  Oberndorf  [14,  32].  Chapters  VI,  VII,  and  VIII  each  present  the 
methodology  and  results  of  the  three  models  used  to  fuither  analyze  the  Kanisza  Triangle 
illusion  in  terms  of  spatial  and  temporal-frequency  characteristics.  Finally,  Chapter  IX 
summarizes  the  results  and  makes  recommendations  for  future  research. 
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II.  Literature  Review 


2.1  Introduction 

A  model  which  shows  promise  in  suggesting  a  type  ol  processing  that  may  o<.cur  in 
the  brain  is  based  on  a  relatively  new  mothematical  theory.,  wa’-^elets.  Though  others  have 
mathematically  explored  illusions  [19,  30,  25],  this  paper  addresses  two  approaches  which 
establish  a  relevant  background  for  future  research  using  wavelet  analysis,  Fourier  and  Gabor 
filtering.  In  two  parts,  it  examines  Ginsburg’s  research  with  Fourier  analysis  [14]  and  Obern- 
dorf’s  research  with  Gabor  analysis  [32].  Each  of  these  sections  includes  a  brief  discussion  of 
the  advances  in  the  field  of  physiology  which  led  these  researchers  in  their  choice  of  analysis. 

2.2  Fourier  Analysis 

Ginsburg’s  use  of  Fourier  filtering,  grew  out  of  a  need  to  reduce  the  vast  amount  of 
data  presented  to  the  sensors  of  the  human  visual  system.  The  eyes  use  over  110,000,000 
rods  and  about  6,000,000  cones  to  see  objects  at  100  brightness  levels  and  about  50  different 
colors  [14:10].  He  attempted  to  find  the  appropriate  range  of  physical  properties  that  would 
satisfactorily  model  reality.  He  chose  filtering  cis  a  means  of  excluding  what  he  considered 
the  redundant  details  of  a  scene.  Since  this  was  an  early  attempt  at  explaining  human 
perception  in  terms  of  a  physical  process,  it  was  necessary  to  use  a  scientifically  accepted 
and  understood  method  of  filtering.  Fourier  filtering  provided  such  a  tool. 

The  concept  of  a  Fourier  filter  is  quite  simpi.;.  All  the  objects  that  make  up  an  image 
can  be  characterized  in  terms  of  their  spatial  fiequency.  Larger  objects  have  a  low  .spatial- 
frequency  while  small  objects  .md  fine  details  have  a  high  spatial-frequency.  A  Fourier  filter 
can  exclude  any  unwanted  or  unneeded  range  of  spatial-frequencies  in  much  the  same  way 
that  we  tune  a  radio  or  televisicu  to  a  specific  channel  or  frequency.  Filters  can  also  alter 
the  spatial-frequency  content  of  iinage.s. 


Conti  ast 
Sensitivity 


Contrast 


Spat'  Frequency  (c/deg) 


Figure  1.  Typical  Contrast  Sensitivity  Function  [14:136] 

To  find  which  spatial-frequencies  to  exclude  and  which  to  keep,  Ginsburg  turned  to 
known  biological  data  about  the  contrast  sensitivity  of  the  visual  system.  As  it  turns  out, 
the  human  eye  has  a  range  of  spatial  frequencies,  bandwidth,  for  which  it  needs  less  contrcist 
to  discern  objects  than  spaiij,!  frequencies  outside  of  that  range.  Mostly,  it  is  the  low 
frequency  characteristics,  the  form  and  .shape  of  objects,  that  need  the  least  illumination  for 
discernment.  To  test  this,  turn  down  the  contrast  knob  on  a  television  and  note  that  the 
finer  details  are  the  first  to  drop  out  of  view.  Figure  1  illustrates  the  characteristic  shape  of 
the  contrast  sensitivity  curve  as  a  function  of  spatial-frequency.  This  graph  illustrates  the 
range  of  spatial-frequencies  to  which  the  visual  system  is  the  most  sensitive  or  which  require 
the  least  contrast  to  discern. 

Ginsburg  fashioned  a  filter  with  a  spatial  frequency  bandwidth  that  approximates  the 
contrast  sensitivity  of  the  visual  system  (Figure  2).  He  reasoned  that  visual  illusion  is  a 
consequence  of  filtering  out  certain  high  frequency  details  about  f.*ij(’fts  at  one  or  more 
stages  of  processing  between  the  eyes  and  the  visual  cortex  of  the  brain.  The  high  frequency 
and  low  frequency  information  may  then  b?  transmitted  independently  to  the  perception 
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Figure  2.  Ginsburg’s  2D  Low  Pass  Filter  Based  on  the  Contrasf  Sensitivity  Function 
[14:141] 

forming  areas  of  the  brain  where  they  are  recombined  creating  the  awareness  of  a  coherent 
scene.  Ginsburg’s  thesis  is  that  the  visual  system’s  form  and  shape  recognizer,  which  uses 
the  lower  frequency  information  of  an  image,  carries  more  weight  in  perception  than  the 
visual  system’s  edge  detector,  which  uses  only  high  frequency  information.  Figure  3  [14:225] 
is  a  filtered  version  of  th#*  well .  .own  Kanizsa  triangle  next  to  the  unfiltered  original.  The 
edges  of  the  illusory  triangle  in  the  original  image  are  even  more  strongL  suggested  in  the 
filtered  image.  Also,  the  blurring  effect  in  the  filtered  image  is  stronger  outside  of  the  illusory 
triangle  matching  the  tendency  to  perceive  the  interior  of  the  original  triangle  to  be  dai! 
than  the  surrounding  area. 

‘  Vhile  addressing  only  part  of  the  misperception  that  leads  to  a  visual  illusion,  Gins- 
burg's  work  lends  credence  to  the  vivv  of  the  brain  as  an  information  processor  that  can  be 
modeled  mathematically.  It  is  not  clear,  however,  what  other  filtering  or  processing  occurs 
to  create  the  illusion  as  we  see  it.  For  example,  how  does  the  relative  proximity  and  orien¬ 
tation  of  the  objects  in  the  image  effect  the  illusion?  By  Ginsburg’s  own  admission,  further 
research  is  required  [14:66]. 


Unfilterecl  Filtered 


Figure  3.  Results  of  Using  'Jinsburg’s  Contrast  Sensitivity  Based  Filter  (14:225] 

2.3  Gabor  Analysis 

Ginsburg  was  not  alone  in  his  search  for  an  explanation  of  visual  illusion  by  means 
of  filtering.  In  the  same  year  that  Ginsburg’s  dissertation  was  published,  1978,  Ozawa 
independently  duplicated  Ginsburg’s  results  {33).  The  next  break  came  in  1987  when  new 
biologically  measured  data  became  available.  Jones  and  Palmer  gathered  data  from  the 
visual  cortex  of  a  cat  [24].  They  demonstrated  that  the  impulse  response  of  the  visual 
cortex,  an  early  level  of  information  processing  done  in  the  brain,  closely  resembles  a  two 
dimensional  Gabor  filter  (11,  12].  Figure  4  shows  the  impulse  response  map  of  simples  cells 
in  the  visual  cortex  of  a  cat  as  measured  by  Jones  and  Palmer,  and  the  best-fitting  two 
dimensional  Gabor  functions.  The  figure  also  shows  how  well  the  Gabor  functions  model  the 
cells  by  demonstrating  that  the  difference  is  nothing  more  than  background  noise. 

The  Jones  and  Palmer  results  have  led  to  a  host  of  image  processing  experiments  which 
use  Gabor  filters  to  model  the  visual  system.  In  1990,  Oberndorf,  a  masters  student  at  the 
Air  Force  Institet*  of  Technology,  tested  the  Gabor  theo  y  on  visua.1  illusions  [32].  Inspired 
by  the  notion  that  columnar  groupings  of  cells  in  the  visual  cortex  share  a  freriueticy  response 
(24,  21,  23],  he  proposed  a  Gabor  filter  tuned  to  1.32  octaves  to  model  the  processing  effect 
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Figure  4.  The  Recptive  Field  Profile  and  the  Gabor  Function  [9:1174] 


of  each  grouping  of  simple  cells  [32:36].  When  Oberndorf  summed  these  filters,  the  total 
effect  exhibited  the  characteristics  of  the  contrast  sensitivity  data  that  inspired  Ginsburg. 
Figure  5  is  a  plot  of  the  low  pass  filter  made  from  a  summation  of  narrowh*  tuned  Gabor 
filters.  The  small  ripples  in  the  top  of  the  filter  correspond  to  each  of  the  peaks  of  the 
individual  Gabor  filters.  The  results  of  using  this  filter  on  the  Kanizsa  triangle  is  shown 
in  Figure  6.  The  energy  difference  between  the  illusor}’  triangle  and  its  surrounding  area 
is  even  more  distinguishable  than  in  Ginsburg’s  results  (Figure  3).  This  improvement  is  a 
strong  indication  that  the  Gabor  analysis  is  a  step  in  the  right  direction. 

3'he  basis  for  this  succe.ss  lies  in  the  ability  of  the  Gabor  anah'sis  to  di.scriminatc  a 
range  of  frequencies  at  a  particular  location.  The  Fourier  filter,  on  the  other  hand,  can 
only  be  applied  to  the  entire  scene.  Therefore,  if  the  desire  is  to  isolate  certain  frequency 
characteristics  by  location,  cell  groupings,  then  the  Gabor  is  a  good  choice.  Going  beyond 
Oberndorf’s  work,  it  might  also  be  useful  to  isolate  the  local  directional  characteristics, 
orientation,  in  the  image.  Mallat  shows  that  this  is  not  only  possible  but  de.sirablc  in  nianj' 
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Figure  5.  Low  Pass  Filter  Created  with  Narrowly-Tuned  Gabors  (32:37 


Figure  6.  Oberndorf’s  Result  Using  Gabor  Filtering  [32:37 


engineering  applications  [27).  lie  aKu  shows  that  with  wavelet  analysis  the  Gabor  filter  can  bo 
made  orientation  as  well  as  frequency  selective.  In  wavelet  analysis,  the  Gabor  filter  retains 
its  location  and  orientation  selectivity  and  gains  a  dilation  parameter.  This  parameter  is 
used  to  isolate  the  desired  spatial-frequency  characteristics  in  certain  locations  in  the  image. 
With  this  tool,  it  may  be  possible  to  isolate  and  emphasize  the  illusory  contours  of  the  image. 
So,  the  next  logical  step  in  research  of  visual  illusions,  started  by  Ginsburg  and  carried  on 
by  Oberndorf,  is  to  analyze  various  illusions  with  wavelets. 

2.4  Conclusion 

A  better  understanding  of  visual  illusions  promises  to  provide  insight  into  the  process¬ 
ing  taking  place  in  the  visual  cortex  of  the  brain.  Ginsburg  advanced  this  effort  by  applying 
Fourier  filtering  techniques  to  some  visual  illusions  including  the  Kanizsa  triangle.  Ilis  re¬ 
sults  indicate  that  there  may  be  some  preattentive  processing  occuring  in  the  visual  system 
that  separates  the  k  w  frequency  characteristics  and  enhances  them  with  respect  to  the  high 
frequency  character,  ^tics.  Thus,  the  perception  forming  areas  of  the  brain  receive  biased 
data.  Oberndorf  took  this  idea  a  step  farther  by  applying  the  property  of  location  sensi¬ 
tivity  inherent  in  Gabor  filtering.  Each  individual  Gabor  was  made  to  emulate  a  columnar 
grouping  of  simple  cells  in  the  visual  cortex  as  suggested  by  Jones  and  Palmer.  Oberndorf 's 
results  indicate  the  approach  is  basically  sound.  The  next  logical  step  is  to  apply  the  Gabor 
filters  in  varying  dilations  and  orientations.  This  can  be  done  by  extending  the  Gabor  into 
a  class  of  mathematical  functions  called  wavelets.  These  functions  arc  the  filters  that  will 
determine  the  combination  of  frequencies  and  orientations  that  cau.se  the  illusion  to  appear. 
If  the  analysis  is  .succe.ssful,  it  will  form  the  basis  of  a  mathematical  model  of  the  vi.sual 
system. 
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III.  Theory  of  Wavelet  Analysis 


This  chapter  was  co-authored  with  Steven  Smilcj'  and  exists  in  his  thesis  in  duplicate 

(411- 

Introduction 

Signal  analj'sis  seeks  to  discover  the  information  content  of  signals  needed  for  appli¬ 
cations  such  as  pattern  recognition  and  signal  coding.  One  approach  is  to  transform  a 
mathematical  representation  of  the  signal  into  a  domain  of  interest.  A  simple  example  is  a 
coordinate  transformation  which  maps  a  function,  such  as  a  circle,  from  Cartesian  coordi¬ 
nates  to  polar  coordinates.  A  circle  represent!  d  by  -f  in  Cartesian  space  is  now 

more  easily  expressed  by  p  =  r  in  polar  space.  The  coordinates  x  and  y  or  p  and  0  provide 
alternate  representations  of  the  circle. 

Another  example  of  this  kind  of  transform  analysis  is  the  Fourier  series  expansion.  If 
/(x)  is  a  continuous  function  on  the  intcrx'al  and  /(— 5)  =  /(?); 


fir)  =  E 


n 


(1) 


where  j*  =  —  I,  and  w  is  an  integer.  The  Fourier  series  expansion  of  a  function  requires  the 
generation  of  cocflicients,  c„- 


Cn  = 


I 

f 


dx 


(2) 


These  coefficients  are  the  amplitude  and  phase  of  each  member  of  the  Fourier  series  basis 
set  needed  to  reconstruct  the  original  function.  In  continuous  form,  Equation  2  becomes  the 
Fourier  Transform. 


/-fco 

f{x)c-^-^dx 


(3) 
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It  maps  one  dimensional  signals  from  the  time  domain  to  the  frequency  domain  and  can  be 
extended  to  map  two  dimensional  images  from  the  space  domain  to  the  spatial-frequency 
domain.  From  another  point  of  view,  the  transform  projects  the  original  signal  or  image 
onto  the  space  spanned  by  the  exponential  basis  set,  is  an  integer),  for  all  integers 

n.  In  this  paper  we  will  denote  this  set  with  the  symbol 

Unfortunately,  the  Fourier  Transform  representation  gives  no  information  as  to  the 
location  of  the  frequency  characteristics  in  the  original  signal.  This  is  due  to  the  fact  that  the 
basis  set  jF„  has  infinite  support.  Therefore,  any  abrupt  changes  in  the  time  domain  require 
contributions  from  the  entire  frequency  domain.  The  Fourier  Transform  might  indicate  that 
high  frequencies  are  present  in  the  signal,  but  it  does  not  indicate  where  in  time  that  range 
of  frequencies  are  significant.  In  images,  edges  or  lines  are  areas  of  high  spatial  frequency.  A 
Fourier  Transform  of  an  image  with  edges  would  provide  evidence  of  high  spatial  frequencies 
but  would  not  indicate  where  in  the  image  the  edges  could  be  found.  Finding  the  location  of 
unique  spectral  characteristics  can  be  extremely  useful  as  a  feature  set  in  applications  such 
as  pattern  recognition  and  signal  coding  [9,  29). 

Therefore,  we  need  an  extra  variable  in  the  target  or  transform  domain.  In  other  words, 
we  need  a  transformation  that  maps  a  signal  to  the  time/frequency  domain  or  an  image  to 
the  space/spatial-frequency  domain.  The  Windowed  Fourier  Transform  (WFTj  is  such  an 
transformation. 

/+0O 

w(t  —  T)e~^^\f{t)dt  (4) 

-CO 

where  w(*)  is  the  window  function.  This  transformation  uses  the  window  to  localize  the 
analysis  of  time  and  frequency  on  the  signal.  However,  because  the  window  size  is  fixed,  no 
sharper  resolution  in  time  can  be  provided.  Due  to  the  uncertainty  principle,  it  is  impo.ssible 
for  this  beisis  set  to  have  arbitrarily  high  resolution  in  both  time  and  frequency  (8,  40].  Even 
the  Gabor  Transform,  a  WFT  whose  Gaussian  shaped  window  gives  the  best  compromise, 
still  falls  prey  to  the  uncertainty  principle.  Additionally,  because  the  window  width  is  fixed 
sharp  discontinuities  in  the  time  signal  are  spread  across  many  Fourier  coefficients. 
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One  answer  to  the  time/frequency  resolution  problem  is  the  Wavelet  Transform^  It 
allows  variations  in  the  size  of  the  window  effectively  trading  resolution  in  time  for  resolution 
in  frequency.  The  collection  of  its  coefficients,  similar  to  the  Fourier  Transform,  is  a  projec¬ 
tion  of  the  original  signal  or  image  onto  the  space  spanned  by  its  basis  set.  The  wa  /elet  basis 
set  is  made  up  of  vari.  tions  in  the  translation  and  dilation  of  a  mother  wavelet  fi  notion  just 
as  the  {j^n}  is  made  up  of  variations  in  the  frequency  of  the  complex  exponential  function. 

This  chapter  provides  the  basics  for  understanding  wavelet  analysis.  It  presents  the 
Wavelet  Transforms  of  both  continuous  and  discrete  signals.  We  discuss  Multiresolution 
Wavelet  Analysis  both  in  terms  of  successive  projections  onto  a  wavelet  basis  set  and  succes¬ 
sive  lowpass  and  bandpass  filtering  in  the  Fourier  domain.  Finally,  we  address  the  extension 
of  Multiresolution  Wavelet  Analysis  to  two  dimensions. 


3.2  Notation 

The  following  notation  will  be  used  throughout  this  document. 

•  Z  denotes  the  set  of  integers. 

•  R  denotes  the  set  of  real  numbers. 

•  R"*"  denotes  the  set  of  positive  real  numbers. 

•  L^(R)  denotes  the  space  of  measurable,  square  integrable,  one  dimensional,  real-valued 
functions  f{x),  such  that 

/OO 

\{f[%))\'^dx  <  OO  (.5) 

-CO 

^Another  approach  to  the  time/frequency  resolution  problem  is  that  of  Time-Frequency  Di.^tributions 

(10,  4\ 
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•  L^(R^)  denotes  the  space  of  measurable,  sqtiaie  integrable,  real-valued,  two  dimen¬ 
sional  functions  f{x,y),  such  that 

/oo  too 

/  \f{x,y)fdxdy<oo  (6) 

-OO  OO 

•  For  f,g&  the  inner  product  of  /  with  g  is  defined  as 

/+CO 

g{x)f{x)dx  (7) 

*oo 

•  For  f,g€.  L^(R)  the  convolution  of  /  with  g  is  defined  as 

/+CO 

f{a)g{x  -  a)dQ  (8) 

•CO 

•  For  f,g€  L^(R)  the  correlation  of  /  with  g  is  defined  as 

/+CO 

f{a)g{a  -  x)da  (9) 

-OO 

•  P„  denotes  the  projection  operator  on  L^(R)  such  that  for  any  /  €  L^(R) 

P/  =  E(/.«^n  (10) 

n 

where  {^n}  is  a  complete  basis  set  and  n  G  Z.^ 

3.3  The  Continuoxis  Wavelet  Transform 

The  basis  functions  in  wavelet  analysis,  {ifab}^  derived  from  a  single  function  called 
the  mother  wavelet,  0(.t).  It  acts  as  the  window  in  the  Wavelet  Transform  whose  size  is 
varied  by  the  dilation  parameter,  a  G  R'*'.  Like  the  Windowed  Fourier  Transform,  it  has  a 

"The  relationship  of  tliis  basis  set  <j)„  to  the  mother  wavelet  rl<{x)  is  discussed  in  Section  3.G  of  this  chapter. 
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translation  parameter,  6  €  R- 


(11) 


i’abix)  = 

y/  (I  CL 

The  ^  term  normalizes  the  energy  of  each  basis  function.  Figure  7  shows  dilated  and 
translated  versions  of  a  mother  wavelet.^  The  function  in  the  middle  is  the  prototype  function 
where  6  =  0  and  a  =  1.  The  function  to  the  right  is  translated  by  6  =  15  and  dilated  by 


a=\.  And  finally,  the  function  to  the  left  is  translated  by  6  =  —20  and  dilated  by  a  =  2.  All 
such  possible  dilations  and  translations  of  the  mother  wavelet,  make  up  the  elements 

of  the  set  {tpab}-  I 


6=-20,a  =  2  6  =  0,0  =  1  6=15,a  =  | 


Figure  7.  A  Typical  Mother  Wavelet 


This  basis  set  provides  narrow  windows  for  small  a  isolating  discontinuities  in  time 
that  are  spread  over  a  broad  range  of  frequencies  and  wide  windows  for  large  a  that  have 
better  frequency  resolution.  The  Continuous  Wavelet  Transform  for  a  real  mother  wavelet 
'll'  is  [10:7] 

1  r+oo  X  —  h 

Wj{a,b)  =  /  f{x)iK - )dx,a  e  R+,6€  R  (12) 

y/ Cl  7— CO  (I 


^Laplacian  of  the  Gaussian  if{x)  =  ~ 


With  this  transform,  a  ^v•i^^elet  coefficient  is  obtained  for  each  dilation  and  translation  of  the 
mother  wavelet. 

If  the  Fourier  Transform  of  the  mother  wavelet,  denoted  by  ^(tu),  satisfies  the 

condition  that 

r+oo 

c  =  /  |5'(a;)p/|a;|dc<;  <  oo  (13) 

Jo 

which  requires  that  5'(0)  =  0  an  inversion  transform  exists  and  is  given  by  [10:8] 


f{^)  = 


(14) 


The  wavelet  transform  pair  given  in  Equations  12  and  14  are  analogous  to  the  Fourier 
Transform  pair  of  Equations  1  and  3.  As  the  dilation  parameter  a  varies,  the  window  width 
of  function  ^(^)  varies.  Since  small  values  of  a  correspond  to  small  window  widths,  a 
varies  inversely  with  the  frequency  detectable  within  the  window.  Therefore,  the  wavelet 
transform  isolates  time  discontinuities  or  abrupt  changes  in  time  at  the  expense  of  low 
frequency  resolution  at  high  frequencies.  In  many  applications,  the  important  information 
content  of  the  signal  is  contained  in  the  quick  transitions  of  the  signal  in  time.  For  this 
reason,  the  Wavelet  Transform  can  be  quite  useful. 

Because  the  windows  overlap  when  the  parameters  (a,  b)  are  varied  continuously,  the 
Wavelet  Transform  is  highly  redundant.  Therefore,  it  is  possible  to  evaluate  it  with  a  discrete 
set  of  basis  functions  in  much  the  same  way  that  the  Fourier  expansion  of  Equation  1  repre¬ 
sents  a  signal  with  a  set  of  discrete  exponentials.  The  time/frequency  plane  evaluating  grids 
are  shown  in  Figure  8  for  uniform  time-frequency  sampling  associated  with  the  Windovved 
Fourier  Transform  and  the  nonuniform  sampling  of  the  Wavelet  Transform.  Each  dot  in  the 
lattice  indicates  the  localization  in  the  time/frequency  plane  of  one  resolution  cell,  showing 
the  center  of  the  time  window  and  corresponding  bandpass  filter.  In  this  figure,  we  can  see 
that  the  fixed  window  widths  of  the  Windowed  Fourier  Transform  have  a  fixed  resolution  in 

'’Tlie  u;  in  the  denominator  of  Equation  13  requires  that  4'(a;)  vanislies  as  w  approaches  zero. 
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Figure  8.  Time/ Frequency  Window  Localization  Lattice  [7:41] 

time  and  frequency;  whereas,  the  variable  window  widths  of  the  Wavelet  Transform  provide 
variable  resolution  in  time  and  frequency.  The  clustering  of  grid  dots  at  the  origin  along  the 
a“^  axis  of  the  Wavelet  Transform  time/frequency  lattice  indicate  the  low  time  resolution 
or  localization  of  low  frequencies;  whereas,  the  denseness  of  grid  dots  parallel  to  the  shift 
axis,  b,  at  high  frequencies  (large  a“*)  indicates  the  higher  time  resolution  or  localization  of 
higher  frequencies. 


3.4  The  Wavelet  Transform  with  Discrete  Wavelets 

It  is  sometimes  convenient  to  use  a  mother  wavelet  whose  discrete  translations  and 
dilations  form  an  orthonormal  basis  [5].  For  this  case,  the  discretized  basis  set  {0’,\ }  where 
m,  7?  G  Z  is  defined  as 

—  Oi~  ^  X  —  nP)  (15) 
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where  a  >  1  and  jS  >  0  [10:11].  In  this  chapter,  we  u.^o  the  dyadic  interval  defined  to  be 
a  =  2  and  P  =  1.  For  the  dyadic  case,  Equation  15  becomes 

=  2-?V(2-"x  -  n)  (16) 

Using  this  form  of  the  mother  wavelet  in  Equation  12  yields  the  Wavelet  Transform  with  a 
discrete  wavelet  basis. 

m  r+°° 

Wf{m,n)  =  2~^  /  ^(2  —  n)f{x)dx  (17) 

To  check  this,  consider  the  Fourier  Expansion  given  in  Equation  1.  We  can  represent  any 
function,  /  G  L^(R)  clS 

/(•'^’)  =  (18) 
n 

where  if-'n  is  the  element  of  an  orthonormal  basis  for  L^(R).  Equation  18  can  also  be 
thought  of  as  the  recOiistruction  of  f{x)  from  its  coefficients  {c„}  in  terms  of  the  orthonormal 
basis  {^n}*  The  inner  product,  Cn  =  gives  the  coefficient  of  the  term  in  the 

basis.  Just  as  any  vector  ?•  in  three  dimensional  Euclidian  space  can  be  expanded  in  a  set 
of  mutually  orthogonal  unit  vectors  x,y,  and  2  in  the  form  r  =  cix  +  a2y  +  032,  we  can 
expand  any  function  /  6  L^(R)  in  a  set  of  mutually  orthogonal  unit  vectors  {V’n}  in  the 
form  /  =  c„V’n-  If  we  multiply  both  sides  of  Equation  18  by  any  term  for  ?n  G  Z  and 
integrate,  we  get 

/oo  _  roo 

V’m(x)/(x)d.T  =  ^C,,  /  ^,i(.T)7/)„,(.r)d.T  (19) 

-CO  yj  J  —  CO 

But,  because  of  the  orthonormality  of  the  set  we  know  that 

{•^)0n(3:)d.'C  =  Snm  (“0) 

where  6nm  is  the  Kronecker’s  symbol,  and  is  defined  as  0  if  m  ^  7?  and  1  if  m  =  n.  Therefore, 
all  the  terms  in  the  summation  of  Equation  19  are  zero  except  the  one  in  which  11  =  ni. 
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Thus, 


/  f{x)-lpm{x)dx  -  Cm  (21 ) 

J  —CO 

is  the  integral  form  we  need  to  find  the  coefficient  of  the  vn}^  basis  element,  Cm-  Written 
another  way.  Equation  21  becomes  a  continuous  transform  with  an  orthonormal  basis  that 
maps  f{x)  — +  Tf{m). 

/+CO 

f{x)if)m{x)dx  (22) 

'OO 

Now,  we  can  insert  the  orthonormal  wavelet  basis  set  {ipm]  Equation  16  into  Equation  22 
and  get  the  Wavelet  Transform  of  Equation  17.  To  reconstruct  the  original  signal,  we  perform 
a  generalized  Fourier  series  expansion  (see  Equation  18)  with  the  coefficients  obtained  with 
Equation  17  and  our  basis  set  Ul>m]- 

f(x)  =  Y.E'Vd'n.n)i,{x)l  (23) 

m  n 

The  next  hurdle  in  wavelet  analysis  is  to  determine  the  most  appropriate  mother 
wavelet  for  a  specific  application.  Presently,  the  appropriateness  of  a  specific  mother  wavelet 
is  determined  experimentally.  We  first  try  to  match  the  characteristic  shape  of  the  mother 
wavelet  with  the  characteristics  of  the  function  under  analysis.  For  a  more  complete  discus¬ 
sion  of  this  issue,  see  Fastman  (10). 


3.5  Mxdtiresohilion  Analysis 

In  section  3.3,  The  Continuous  Wavelet  Transform,  we  said  that  the  Wavelet  Trans¬ 
form  uses  a  variable  length  window  to  examine  the  function.  Increasing  window  lengths 
correspond  to  successively  coarser  scales  or  resolutions  (in  time  or  space)  of  the  function. 
Therefore,  wavelet  analysis  is  sometimes  referred  to  as  multircsolution  analysis.  In  this  sec¬ 
tion,  we  will  describe  each  re.solution  level  as  the  projection  of  the  function  onto  the  basis 
set  made  up  of  all  shifts  of  a  scaling  function  (not  a  wavelet)  at  a  fixed  dilation  or  scale. 
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Multiresolution  analysis  represents  a  signal  as  a  series  of  successive  projections,  each  of  whicli 
approximates  the  original  signal  at  a  different  level  of  resolution  [2,  36].  Here,  ‘level’  cor¬ 
responds  to  a  particular  dilation  of  the  scaling  function.  A  more  intuitive  view'  is  that  of 
successive  low  pass  filtering  of  the  signal  with  filters  of  narrower  and  narrower  bandwidth 
representing  the  signal  with  less  and  less  detail  The  filter  is  related  to,  and  can  be  derived 
from,  the  scaling  function.  Both  views  will  be  discussed  in  the  following  subsections. 


3.6  Multiresolution  with  Projections 

The  projection  operator  P/  projects  a  function  /  onto  a  bcisis  set  {^„}  (see  Section 
1.2,  Notation).  Foi  mathematical  convenience  we  consider  a  scaling  function  6{.v.)  w'ho^e 
translations  and  dilations  form  an  orthonormal  basis.  This  is  possible  according  to  Stephane 
Mallat’s  Theorem  1  which  states: 


Let  be  a  multiresolution  approximation  of  L^(R).  There  exists  a  unique 

function  4){x)  6  L^(R),  called  a  scaling  function,  such  that  if  w'e  set  j>2j{x)  = 
2^<i>{2^x)  for  j  €  Z,  (the  dilation  of  d>{x)  by  2-’),  then 

(v/2^^2,(.T-2-^n))„6z  (24) 

is  an  orthonormal  basis  of  V2; 

[28:676];  see  [28:690]  for  proof.  In  Mallat’s  theorem,  V2J  is  a  vector  subspace  of  L^(R)  whose 
basis  set  is  the  scaling  function  <f>{x).  In  being  consistent  with  our  earlier  notation,  u'Lcre 
Mallat  uses  j  to  denote  level  or  scale  we  use  the  integer  w  fmd  the  integer  n  to  denote  shift. 
One  property  of  Mallat’s  set,  is  that  each  element  is  identical  in  shape  to  every  o.her 

element  but  differs  in  height  by  a  power  of  two  and  differs  in  relevant  width  by  a  power  of 
two.  This  is  known  as  the  dyadic  case.  Figure  9  shows  a  rectangular  scaling  function  dilated 
three  times.  With  an  orthonormal  scaling  function  dilated  and  translated  d\  adically,  we  can 
use  Mallat’s  discrete  projection  operator 
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Figure  9.  A  Rectangular  Scaling  Function  Dx'adicalh'  Scaled 


A^n.f{x)  ■-=  ( 2-"‘  Y:,{L6M*  -  2-"‘n))02.n(x  -  2-n) )  (25) 

V  /  meZ 

which  generates  an  approximation  of  the  original  function  a(  a  level  of  resolution  2"*.  The 

set  of  inner  products 

— 2  ”'n))}m.ii6Z  (26) 
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characterizes  an  approximation  of  /  at  scale  m.  In  Mallat’s  terminology,  /l2»»  projects 
/  6  onto  the  subspace  V2m.  For  notational  convenience,  we  now  drop  the  subscript 

2  and  rewrite  for  The  family  of  subspaces  V„,  created  by  successively  coarser 

approximations  of  L^(R)  has  the  property  that 

•  •  ■  C  F,„-2  C  14_,  C  Kn  C  K,.+i  C  F,„+2  C  ■  •  •  (27) 

That  is,  each  resolution  approximation  of  L^{R)  is  contained  in  (is  a  subset  of)  the  next 
higher  resolution  approximation.  Because  a  physical  sampling  device  samples  at  a  finite 
rate,  any  signal,  /,  is  represented  at  its  finest  level  of  resolution  by  For  reference,  we 

choose  777.0  =  0-  Then  for  a  finite  number  of  resolutions,  M,  we  have 

C  F_(a^-2)  C  •  ■  •  C  V-i  C  I'D  (28) 

Since  Amf  €  Fm,  each  approximation  of  coarser  resolution  Am-if  can  be  derived  from  its 
parent  projection  of  finer  resolution 

The  difference  between  two  adjacent  scales,  m  and  777  —  1,  given  by 

A„-i/  =  4„/ (29) 

is  called  the  detail  signal  at  scale  777  —  1  .  It  contains  the  details  in  the  signal  /  that  are  lost 
during  the  projection  from  level  m  to  level  m  —  1.  The  detail  signal,  Z)„,_i/,  is  the  result  of 
projecting  /  onto  the  basis  set  of  a  vector  space,  Om_i,  which  is  orthogonal  to  Vm-i,  with 
the  projection  operator  Analogous  to  the  projection  Ecpiation  25,  this  operator  is 


described  in  terms  of  a  basis  set®  V-'",  "diich  spans  the  space  Om- 


D^f(x)  =  (2-"'  -  2-”n))^2..(i  -  2-”n)  I  (30) 

\  /  m€Z 

Equation  30  generates  the  difference  bet  veen  approximations.  It  is  characterized  by  the  snt 
of  inner  products 

(31) 

This  is  just  Equation  17  written  as  an  inner  product.  Thus,  the  mother  wavelet,  ^(.1:), 
generates  a  bcisis  set,  {^m},  of  the  vector  space  0,„.  Figure  10  shows  an  example  of  a 
mother  wavelet  dilated  and  translated  dyadically.  It  follows  from  Equation  29  that  the  sum 
of  all  the  detail  signals  and  the  coarsest  approximation  equals  the  original  signal. 


f{x)  =  D-if  +  . . .  +  +  ^-(A/-i)/  (32) 


Equation  32  is  the  Wavelet  Decomposition  of  f{x). 

3.7  Multiresolution  with  Filters 

An  alternate  view  of  the  multiresolution  approximations  is  that  of  filtering  the  image 
with  a  set  of  low  pass  filters  with  successively  narrower  bandwidth.  The  inner  products  of 
Equation  26  are  convolutions  evaluated  at  the  point  2"”*n  (see  section  3.2,  Notation). 

/+00 

f{x)4>M^.  -  2-”'n)dx  =  ((/  *  ^2'-.(— )}(2-’^^)  (33) 

■00 

An  alternative  approach  uses  correlations  where  the  argument  of  <f>  is  reversed  (.see 
section  3.2,  Notation). 

^Herc,  is  the  particular  mother  wavelet  associated  with  the  .scaling  function,  </<(x)  used  in  Equation 
25.  Some  researchers  derive  the  ^  given  a  tp,  and  others  derive  the  tli  given  a  0  [7],  In  this  thesis,  we  use 
previously  derived  4‘,V'-  pairs  (28)  (6). 
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Figure  10-  A  Haar  Mother  Wavelet  Function  Dyadically  Scaled 


/+CO 

/(.r)^2-(2-”‘n  -  x)dx  =  ((/  *  ’"n)  (34) 

•OO 

Convolution  and  correlation  are  interchangeable.  We  choose  convolutio!i  for  consistency  with 
current  wavelet  literature.  Of  cour.se  ever\'  good  electrical  engineer  recognize.s  convolution 
as  multiplication  in  the  Fourier  domain 

(35) 


where  F  and  G  art  the  Fourier  Transforms  of  /  and  g  respectively.  Tiie  Foutier  Transform, 
$(u;),  of  the  scaling  function,  ^(x),  is  a  low  pass  filter  with  a  specific  bandwidth.  '1  iie  Fourier 
Transform  of  each  successively  wider  scaling  function  (dilated  by  a  power  of  2)  will  also  be 
a  low  pass  filter,  but  with  a  bandw'idth  smaller  than  that  of  the  previous  scale  or  level.  This 
operation  of  succes  dve  low  pass  filtering  produces  “smooth.ed”  versions  or  app  -oximations  of 
the  original  signal.  Each  version  contains  less  information  or  detail  than  its  predecessor.  In 
the  case  of  images,  each  approximation  is  “blurred”  by  the  amount  of  high  spatial-frequency 
information  that  is  filtered  out.  Finall}',  the  lowest  or  coarsest  level  approximation  occurs 
when  all  frequencies  have  been  filtered  out  and  only  the  dc  component  of  the  signal  xf  tains. 

In  multiresolution  anal\-sis,  we  are  primarily  concerned  with  the  informcition  contained 
in  the  difference  between  levels  of  resolution.  In  the  case  of  filters,  the  difference  between  two 
lowpetss  filters  w'hose  bandwidths  vary  by  a  power  of  two  is  a  bandpass  filter  with  a  bandwidth 
of  one  octave.  This  bandpass  filter  is  provided  by  the  Fourier  Transform.  t'hc  wavelet 

function,  ^'(x).  We  Ccin  express  the  inner  products  of  Equation  -31  as  the  convolution  of  the 
signal  with  the  wavelet  function  evaluated  at  2“”*n  as  we  did  in  Equation  .33. 

(/,  -  2-”‘n)>  =  (/  ♦  )](2-’”n)  (.36) 

Figure  11  shows  a  typical  scaling  function,  o(x),  and  the  corresponding  low  pass  filler,  4*(/), 
its  Fourier  Transform.  Here  /  denotes  frequency  measured  in  Hertz,  not  the  function  /  used 
previously.  Figure  12  shows  the  wavelet  function,  t&(x),  which  correspoiuls  to  the  scaling 
function  of  Figure  1 1.  It  also  shows  the  bandpass  filter.  ’!'(/),  the  Fourier  Transform  of  V’(j')- 
These  filters.*I'(/)  and  4*(/)  correspond  to  the  same  level  of  resolution  or  scale.  Superpo¬ 
sitioning  them,  creates  the  lowpass  filter  of  the  next  higher  level  of  resolution.  Similarly, 
adding  the  next  bandpass  filter  will  create  the  next  lowpass  filter  and  .so  on.  Therefore, 
any  signal  c.  image  can  be  decomposed  into  a  set  of  signals  or  images  each  containing  a 
one  octave  bandwidth  of  the  original  signal  or  image.  In  tl  is  manner,  we  cm\  construct  a 
bank  of  bandpass  filters  from  a  mother  wavelet  for  the  purpose  of  wavelet  decomposition. 


Furthermore,  if  we  choose  om  mother  wavelet  to  be  orthonormal,  the  resulting  banclp.iss 
filters  will  completely  cover  the  frequency  plane  such  that  the  information  content  of  each 
signal  or  image  in  the  decomposition  is  unique.  A  major  advantage  to  the  filtering  approach 
as  opposed  to  the  projection  approach  is  the  decrease  in  computational  time  complexity  of 
the  decomposition  process.  Us  ng  a  Fast  Fourier  Transform  (FFT),  the  scale  and  wavel.'t 
coefficients  are  computed  in  0(nlog(7z))  time.  Alternately,  using  spatial  convolution  when 
the  size  of  the  filter  functions  are  much  smaller  than  the  length  of  the  signal  0(n)  time  is 
required,  where  n  is  the  number  of  samples  in  the  signal. 


S.S  Two  Dimensional  (2D)  Wavelet  Transform 

The  Wavelet  Transform  can  be  extended  from  one  dimension  (ID)  to  dimensions, 
n  >  1.  For  -aage  processing,  we  need  a  2D  Wavelet  Transform  to  map  images  from  the  space 
domain  to  the  space/spatial-frequency  domain.  Mallat’s  Theorem  1  is  valid  for  L^(R^)  and 
there  exists  a  scaling  function  $(.T,y)  whose  dilations  and  translations  are  an  orthonormal 
basis  for  L^(R^)  [27:682].  The  symbol  $  is  used  here  for  consistency  with  referenced  material 
and  should  not  be  confused  with  the  Fourier  Transform  of  (f)  denoted  previously  with  this 
symbol.  The  $(x,?/)  can  be  a  separable  or  a  inseparable  function.  We  will  discuss  the 
separable  case  in  which  $(.r,.y)  is  written  as  a  product  of  two  identical  ID  scaling  functions. 

^x,y)  =  <j>{x)(f>{tj)  (37) 

For  the  separable  vase,  the  multiresolution  projection  approximations  of  the  image  c.t  level 
m  can  be  obtained  from  the  following  set  of  inner  products 

A„J{x,y)  =  (2-"*  ^  )<>',:.(•  -  2-’"n,))<l>,„{^:  -  2-'’'n,)<l>„Ay  -  2-’"«,)  ) 

\  ••  /  „,g2 

(38) 
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Figure  12.  Typical  Wavelet  Function  and  its  Fourier  Transform  [28:677] 
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Here  we  use  the  same  rn  and  n  in  both  x  and  y  since  we  dilate  and  shift  equally  in  both 
dimensions.  However,  in  the  more  general  case  x  and  y  could  be  shifted  and  dilated  inde¬ 
pendently. 

We  obtain  the  detail  image  just  as  in  the  ID  ceise  in  Equation  31.  The  detailed  image 
at  resolution  m  is  equal  to  the  orthogonal  projection  of  the  2D  function  on  the  orthonormal 
complement,  Om,  of  Vm-  The  orthonormal  basis  of  Om  is  composed  of  the  three  wavelet  basis 
functions  ^](a;,i/),  ^^(x,?/),  which  we  construct  from  the  ID  scaling  function,  (^, 

and  its  corresponding  wavelet,  [28:683].  The  symbol  ^  is  used  here  for  consistency  with 
referenced  material  and  should  not  be  confused  with  the  Fourier  Transform  of  ip  denoted 
previously  with  this  symbol. 

y)  =  K{x)i}m{y)  (39) 

y)  =  ^m{x)(l)m{y)  (40) 

=  i’m{x)i}m{y)  (41) 

There  is  one  detail  projection  for  each  of  the  three  wavelet  bases.  Applying  Equation  31  to 
each  yields  [28:684] 


DU{x,y)=(2-^  E  E(/>^2”'(*-2''"^i>*-2-"‘n2))^L(a:-2-”‘n„j/-2-”’n2)) 

\  €  Z  £  Z  / 

Dlfix,y)=(2-"'  E  E(/-^2-(*-2“’"«>>*-2"’"«2))^24^-2-'"n,,2/-2-”‘n2)) 

\  niGZnaeZ  / 

DlJix,y)=  (2-’"  E  E(/^^24*-2-"*n.,.-2-'"no))4'‘4.T-2-"‘n.,t7-2-”‘n2)) 


m6Z 

(42) 


m€2 

(43) 


m€Z 

(44) 


The  image  can  then  be  completely  reprei>ented  at  any  level  of  resolution  in  —  1  by  summing 
Amf  and  D'^f  for  i  =  1,2,3.  Figure  13  shows  an  approximation  of  the  locations  of  the 
corresponding  lowpass  and  bandpass  filters  for  the  2D  wavelet  decomposition  in  the  2D 


frequency  domain.  This  figure  demonstrates  the  spatial  orientation  of  each  bandpass  filter. 
The  filter  formed  by  '^'(cuj.,^^)  is  oriented  horizontally,  ^‘(u;j.,u;j,)  vertically,  and  ^^(u-Vi^y) 
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diagonally.  In  many  image  processing  applications  it  is  desirable  to  obtain  a  representation 
which  is  not  only  a  space/spatial-frequency  representation  but  also  is  sensitive  to  specific 
orientations.  Although  Mallat  generates  three  orientations  as  represented  by  the  three  detail 
signals  of  Equations  42  through  44,  recent  work  by  Cohen  and  Schlenker  at  AT&T  Bell 
Laboratories  suggest  more  are  possible  [3]. 


Figure  13.  Orientation  of  Wavelet  Decomposition  Filters  in  the  Fourier  Domain  [10:65] 


3.9  Conclusion 

The  predominate  tool  in  signal  analysis  for  the  past  three  decades  has  been  the  Win¬ 
dowed  Fourier  Transform.  It  provides  a  representation  of  signals  in  the  time/frequency 
domain.  However,  this  transform  uses  a  constant  size  window;  thus,  it  piovides  only  a  fixed 
resolution  of  the  location  of  the  frequency  characteristics  of  a  signal  in  the  time  domain.  A 
new  engineering  tool,  the  Wavelet  Transform,  provides  an  alternative  by  using  multiple  sized 
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windows  effectively  trading  resolution  in  time  for  resolution  in  frequency  for  applications  in 
which  localization  of  frequency  characteristics  in  time  is  more  important  for  high  frequencies. 
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IV.  Multiresolution  Analysis  Algorithms 


4.1  Introduction 

This  chapter  discusses  two  different  approaches  to  using  wavelets  in  multiresolution 
analysis.  It  is  the  result  of  a  combined  effort  with  Steven  Smiley  and  exists  in  duplicate  in 
his  thesis  [41].  The  first  approach  uses  the  scaling  function  ^(x)  associated  with  a  mother 
wavelet  4>{x)  to  decompose  an  image  into  successive  Vm  and  space  projections  where 
Kn  and  Wm  are  vector  spaces  in  L^(R)  (see  Chapter  III)  and  are  orthogonal  compliments 
of  each  other  in  the  next  larger  space  The  second  approach  uses  a  set  of  quadrature 

mirror  filters  H  and  G  constructed  from  a  mother  wavelet  and  its  associated  scaling  function 
to  decompose  a  signal  or  image  into  sets  of  coefficients.  These  coefficients  characterize 
the  V  and  W  space  projections.  Following  the  discussion  of  each  approach,  we  include 
implementation  examples  in  support  of  the  theoretical  explanations. 

4.2  Multiresolution  with  Approximations 

This  section  discusses  our  implementation  of  multiresolution  decomposition  using  the 
Haar  wavelet  bases.  First  it  defines  the  Haar  function  as  an  orthogonal  wavelet  basis  suitable 
for  multiresolution  decomposition.  Then,  it  explains  our  implementation  of  decomposition. 
Finall}',  we  provide  an  example  decomposition  using  our  decomposition  program. 

4.2.1  V  space,  W  space,  and  Haar  basis.  In  one  dimension,  the  Haar  mother  wavelet 
is  defined  as  follows: 

if  0  <  X  <  5 

if  ^  <  x  <  1  (45) 

otherwi.se 

'In  thi.s  chapter,  the  symbol  replaces  the  symbol  Om  used  in  Chapter  Ill,  Section  3..3. 
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The  one  dimensional  scaling  function  that  corresponds  to  the  Haar  mother  wavelet  is  defined 
as  follows: 


(f>{x) 


1  if  0  <  .T  <  1 
0  otherwise 


(46) 


The  two  dimensional  scaling  function,  <>(ar,  y),  is  the  product  of  (^{x)  and  <i>{y),  where  #(x,  y) 
is  a  two  dimensional  rectangular  function.  In  general,  $  is  scaled  by  an  amount  proportional 
to  the  length  of  its  interval  of  support,  /,  where  its  values  are  non-zero.  In  the  dyadic  case, 
the  length  of  the  interval  of  support  is  given  by 


{ICI  =  (47) 

for  the  shift  n  and  the  level  m.  We  use  the  convention  that  level  0  is  the  finest  resolution 
level.  This  means  that  the  projection  in  the  Vo  space  represents  the  image  at  its  original 
sample  density.  In  this  case,  the  shift  interval  for  the  4>  and  -tp  functions  is 


|/o"l  =  1 


(48) 


which  is  equal  to  the  sample  size  of  the  image,  one  pixel.  The  scale  factor  is,  therefore, 

Now,  we  can  write  an  expression  for  the  one  dimensional  <f)  with  the  proper  scale  factor  as 
follows 


< 


\/2™ 

0 


if  .T  e  /: 
otherwise 


(49) 


From  Equation  49,  we  build  a  two  dimensional  scaling  function  with  the  product  mentioned 
above  as  follows 


4’::(^.y)  = 


2-”  x.jec 

0  otherwise 


(50) 


Therefore,  our  convention  allows  us  to  easily  derive  the  size  of  <j)  in  terms  of  its  interval 
of  support  from  2“”*,  where  m  is  the  level  of  resolution.  As  mentioned  above,  the  finest 
resolution  level  corresponds  to  j?i  =  0  and  is  contained  in  the  vector  space  Iq.  The  maximum 


resolution  level  is  also  easily  found.  This  is  done  by  finding  log2(A^)  where  N  is  the  size  of 
the  NxN  image  under  analysis.  For  example,  if  the  image  is  512x512,  the  largest  $  that 
will  fit  completely  on  the  image  is  512x512.  Since  the  size  of  4>  is  related  to  the  level  by 
2~”‘,  we  find  m  by  taking  log2(A^)-  In  this  example,  that  would  be  log2(512)  =  9.  Therefore, 
all  contributing  levels  of  iosolution  range  from  zero  to  nine,  where  level  zero  is  thr  finest 
resolution  and  level  nine  is  the  coarsest.  Though  level  zero  is  exactly  the  original  image,  we 
will  continue  to  consider  it  for  programming  convenience. 

The  projection  on  the  vector  space  of  the  image  f{x,ij)  or  the  approximation  of 
the  image  at  the  level  of  resolution  is  characterized  by  the  set  of  coefficients,  {c"  }  where 

C  =<*;./>  (51) 

Then,  the  projection  is  given  by 

A,J(x,y)  =  (52) 

n 

Given  that  the  orthogonal  complement  in  V,n-i  of  the  vector  space  Vm  is  M  which  means 
that  IV'ni  =  I4i-i  —  I4i,  we  can  find  the  projection  of  the  image  onto  the  vector  space 
from  Equation  29.  It  is  possible  to  calculate  the  w'avelet  coefficients,  dJJ,,  that  characterize 
the  projection  into  the  orthogonal  vector  space  in  a  iiianner  similar  to  Equation  51  using 


C  =  iKJ) 


(53) 


where  ^{x.y)  =  j/(.r)7/’(?/)  But  this  is  not  nere.ssary  since  we  can  find  the  projections  Df{m) 
more  directly  from  Equation  29 

J,.2.2  Uaar  Transfoini  Program  The  data  flow  diagram  in  Figures  14  and  15  shows 
the  operation  of  the  Wavelet  Decomposition  program,  wave.  'I’his  program,  is  written  in  the 
ANSI  standard  C  programming  language.  It  reads  in  an  image  from  an  .ASCII  file  and  writes 
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its  output  to  ASCII  files;  the  $  coefficient*^,  the  projections  in  V  space,  and  the  projections 
m  W  space.  The  number  of  files  produced  is  determined  by  the  size  of  the  input  image  to 


WAVELET  DECOMPOSITION 
PROGRAM 


PHI 

COEFFICIENTS 


V  SPACE 
PROJECTIONS 


W  SPACE 
PROJECTIONS 


Figure  14.  Dataflow  Diagram  of  the  Wavelet  Decomposition  Program,  First  Level 

be  decomposed.  For  example,  the  image  of  Lenna  shown  in  Figure  16  has  a  resolution  of 
480x512  pixels.  Therefore,  ten  files  each  will  be  produced  for  the  $  coefficients,  the  V'  space 
projections,  and  the  W  space  projections.  The  ^  coefficients  are  calculated  by  taking  the 
inner  product  of  the  appropriate  le\el  4>  and  the  image.  Equation  51.  The  projections  of  the 
input  image  onto  the  V  space  are  found  by  multiplying  the  4>  basis  b\r'  the  ^  coefficients, 
Equation  52.  Then,  the  projections  in  the  W  space  are  found  from  the  difference  of  V  space 
projections  at  adjacent  levels.  Equation  30.  The  source  code  for  the  tvavc  program  is  made 
up  of  ten  files.  They  are  provided  in  their  entirety  in  .Appendix  A.2. 

4.S.3  An  Example  Decomposition  We  subjected  a  480x512  sampled  image  of  Lenna 
to  the  Haar  transform  program  and  printed  her  projections  in  the  1' spaces  and  the  H" 
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spaces  for  resolution  levels  one  through  nine  according  to  the  convention  established  above 
(See  Figure  17  through  28).  The  W  space  projections  are  made  viewable  by  adding  255  to 


wavelet  decomposition 

PROGRAM 


^  PHI 
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^  V  SPACE 
PROJECTIONS 


^  W  SPACE 
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Figure  15.  Dataflow  Diagram  of  the  Wavelet  Decomposition  Program,  Second  Level 


their  gray  scale  values  and  dividing  the  sum  by  two.  This  process  centered  the  value.s  al)out 
128  instead  of  zero.  The  low  energy  contained  in  the  W  space  projection.s  is  as  c.xpected, 
since  it  represents  only  that  part  of  the  image  which  correlates  to  the  v-  of  the  corresponding 
level.  In  other  words,  only  small  amounts  of  the  whole  image  lie  in  the  scale  bandwidth  of 
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Figure  17.  Projection  of  Lenna  onto  Vj 
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Figure  19.  Projection  of  Lenna  onto  V3 
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Figure  21.  Projection  of  Lenna  onto  Vr, 
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the  coiTPbponding  scale  of  ■0  at  that  level  of  resolution.  The  projection  onto  IKi  =  Vq  —  Vj 
space  showed  only  the  high  frequency  information,  changes  that  occurred  within  the  Haar 
interval  of  support  or  a  2x2  pixel  area.  This  is  seen  in  Figures  23  through  28  in  which 
six  projections  onto  the  W  spaces  are  shown.  On  the  other  hand,  the  V  space  projections 
get  progressively  blurrier  with  larger  m,  corresponding  to  coarser  le  'els  of  resolution.  They 
represent  all  frequencies  of  the  image  from  the  dc  component,  Vg,  to  the  current  level.  All 
V  space  projections  of  coarser  resolution  are  contained  in  a  F  space  projection  of  finer 
resolution,  smaller  m  (See  Figure  17  through  22). 

4.5.4  Histograming  To  view  the  histogram  of  grey  scale  values  of  the  projected  im¬ 
ages,  the  Khoros  signal  and  image  processing  system  developed  at  the  University  of  New 
Mexico  [37].  Figures  29  and  30  show  the  resulting  histograms  of  the  original  Lenna  image 
and  the  first  three  levels  of  the  V  and  W  projections.  These  results  show  how  the  V 
space  projections  contain  a  wide  variety  of  grey  scale  levels  compared  to  the  W  projections. 
Therefore,  the  W  space  projections  would  be  a  good  choice  of  representation  from  which  to 
code  and  compress  the  original  image. 

4.5.5  Thresholding  The  histograms  discussed  above  provide  a  good  measure  of  the 
grey  scale  values  that  are  important  to  the  information  content  of  the  image.  For  example, 
the  histogram  of  the  Wi  projection  shown  in  Figure  23  shows  that  most  of  the  information 
content  of  the  image,  the  essence  of  Lenna,  is  contained  in  a  relatively  small  number  of  pixels 
in  a  small  range  of  grey  scale  values  to  either  side  of  grey  scale  value  128.  To  isolate  this 
information  from  the  vast  amount  of  data  required  to  represent  the  entire  512x512  image, 
we  developed  a  routine  called  threshold  to  eliminate  or  zero  out  the  large  number  of  pixels 
in  the  grey  scale  range  around  the  value  128.  Our  routine  also  binarizes  the  remaining  grey 
scale  values.  If  a  grey  scale  value  falls  within  the  thresholding  window,  it  is  set  to  white 
or  255,  and  if  a  grey  scale  value  is  outside  the  threshold  window,  it  is  set  to  black  or  0. 
Figures  31,  32,  and  33  shows  the  results  of  executing  the  threshold  program  on  the  first  three 
levels  of  W  space  projections.  These  figures  demonstrate  the  edge  detection  capability 
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Figure  27.  Projection  of  Lenna  onto  H'- 
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Figure  28.  Projection  of  Lciina  onto  H'g 
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Figure  29.  Histograms  of  Lenna’s  Original  Image  and  V'i  through  V3  Projections 
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Figure  30.  Hislograins  of  Lenna’s  H'j,  and  113  Projections  with  the  Number  of  Pixels 
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Figure  31.  Leiina'.':  H-'i  Projertion  Thrcshol<le<l 
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Figure  32.  Lenna’s  W2  Projection  Thresholcled 
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Figure  33.  Lenna’.s  Projection  Thresholded 


of  a  Multiresolution  Wavelet  Decomposition.  These  iimiges  were  produced  by  chosing  to 
eliminate  all  grey  scale  values  between  131  and  125.  Tlie  threshold  routine,  whose  source 
code  is  listed  in  the  Appendix  F.2,  allows  the  user  to  select  the  upper  and  lower  bounds  of 
grey  scale  values  for  thresholding. 

4.3  Multiresolution  with  Filters 

This  section  briefly  reviews  Mallat’s  multiresolution  approximation  algorithm  [28:677]. 
It  also  expands  on  selected  areas  of  his  paper  that  are  vague  or  incorrect.  Because  the  theory 
of  multiresolution  analysis  is  covered  in  Chapter  II  of  this  thesis,  we  begin  here  with  the 
specifics  of  Mallat’s  algorithm.  The  specific  equations  referenced  in  this  section  are  taken 
directly  from  Mallat‘s  paper  [28]. 

4.3.1  Multiresolution  Decomposition  In  Mallat’s  Equation  (10)  [28:677],  he  gives  the 
“orthogonal  projection”  of  a  signal  f{x)  onto  a  scale  space,  V,  of  an  arbitrary  level  of 
resolution,  2^  for  j  €  Z  as 

+00 

A„J(x)  =  2-’  ^  (54) 

n=— CO 

Then  in  Equation  (11)  [28:677],  he  adds  a  superscript  d  to  his  notation  indicating  that  the 
inner  product  of  this  equation  is  a  “discrete  approximation”  of  f{x)  at  the  given  level  of 
resolution.  Mallat’s  Equation  (11)  is  just  that  inner  product. 

Aif={{f,M»-r’n)}Uz  (55) 

The  discrete  set  of  inner  products  in  Equation  55  is  the  set  of  .scaling  function  coefficients 
previously  given  in  this  thesis  in  Equation  51  as  c”  where  n  corresponds  to  Mallat’.s  n  and 
m  corresponds  to  his  j.  From  this  point  on  in  his  paper,  Mallat  refers  to  this  .set  of  inner 
products  as  “the  image’'.  While  his  explanation  is  easy  to  miss,  it  is  true  that  lie  treats 
a  discretely  sampled  signal  or  image  as  being  equivalent  to  these  coefficients  at  the  finest 


level  of  resolution  without  evn  taking  the  inner  product.  In  other  words,  he  considers  the 
sampling  process  of  the  original  analog  signal  or  image  to  be  an  approximation  of  that  signal 
or  image  at  the  finest  level  of  resolution,  sample  density,  allowable  by  the  sampling  device 
(ie.  digitizer  or  scanner).  He  treats  this  set  of  samples  cis  equivalent  to  the  scaling  function 
coefficients  at  the  finest  level  ».  f  resolution,  j  =  0.  We  have  adopted  his  convention,  but 
'nclude  here  a  brief  explanation  that  considers  the  digitally  sampled  signal  or  image  as  the 
projection  of  the  original  analog  signal  or  image  onto  the  scale  space,  V2J,  where  j  =  0  as 
the  finest  level  of  resolution  corresponding  to  the  sample  density  of  our  input  data.  This 
approach  would  add  two  steps  to  Mallat’s  algorithm  —  one  at  the  beginning  to  perform  the 
inner  product  with  <^2“  —  n)  and  one  at  the  end  to  perform  the  discrete  sum  that  projects 

the  reconstructed  scaling  function  coefficients  onto  the  scale  space  at  level  j  —  0.  Performing 
the  inner  product  of  Equation  55  via  convolution  the  level  j  =  0  scale  coefficients  are 

A?/  =  {(/  *  (56) 


for  one  dimension  and 


Mf=  {{f  *  M~*)  *  (57) 

for  two  dimensions.  Obtaining  the  scale  space  projection  from  these  coefficients  at  the  end  of 
reconstruction  is  just  as  straight  forward  if  we  think  of  ^(.r)  as  a  discretely  sampled  function 
with  k  samples.  For  illustration,  replace  the  continuous  variable  x  with  the  discrete  variable 
k.  Then,  inserting  Equation  56  into  projection  Equation  54  yields 

00 

A,f(k-)=  Y,  (Aif){n)Mh-n)  (58) 

7l=  — CO 

which  is  the  rectangle  appro.. imation  of  the  Riemann  integral  of  the  convolution 

(59) 
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Using  Equation  59  as  the  final  step  in  our  multiresolution  reconstmciion  program,  we  obtain 
the  discrete  multiresolution  approximation  of  the  original  signal.  The  two  dimensional  form 
of  Equation  59  using  the  discrete  variables  k  and  I  in  place  of  the  continuous  variables  x  and 
y  respectively  is 

Ai/(A:,/)  =  {{Mf){n,m)  *  (t>i{n)  *  (f>i{m)){k,  ‘)  (60) 

Because  these  extra  steps  add  no  additional  accuracy  to  Mallat’s  multiresolution  analysis 
algorithm,  we  omit  them  as  he  did.  However,  their  explanation  provides  a  clearer  transition 
from  the  theory  discussed  earlier  in  this  thesis  to  the  implementation  described  in  this 
chapter. 

In  his  Equation  (15)  [28:677],  Mallat  introduces  the  “discrete  filter”,  H,  “whose  impulse 
response  is  given  by”,  h{n).  In  this  thesis,  we  will  refer  to  h{n)  as  a  response  function  and 
refer  to  //  as  a  filter.  Mallat  shows  in  the  one  dimensional  case  that  the  set  of  scale  coefficients 
Ajj/  at  resolution  level  j  can  be  found  by  convolving  the  response  function  h{n)  with  the 
set  of  scale  coefficients  at  the  previous  level  of  resolution  j  +  1  and  evaluating  the 

result  at  even  values  of  the  argument  n.  Our  interpretation  of  his  Equation  (16)  [28:678]  is 

Ai/  =  {(At.,/»A)(2n)},-.^z  (61) 

where  h(n)  =  h{—n).  After  this  point,  Mallat  frequently  uses  the  upper  and  lower  case  ‘H’ 
interchangeably  even  though  the  operation  clearly  calls  for  a  space  domain  convolution,  not 
a  convolution  in  the  frequency  domain.  Equation  61  describes  the  decomposition  of  a  set 
of  scale  coefficients  at  level  j  +  1  into  the  set  of  scale  coefficients  at  the  next  coarser  level 
of  resolution  j.  The  detail  that  is  lost  in  the  multiresolution  transformation  is  described  by 
the  wavelet  coefficients  which  are  in  Mallat’s  notation  D2^/.  These  coefficients  are  found  by 
way  of  a  similar  multiresolution  transform  using  another  filter,  G,  whose  lesponse  function 
is  g{n).  This  transform  is  given  by  Mallat’s  equation  (28)  [28:681]  and  is  interpreted  as 


^2}f  —  {{Aii+if  *  ^)(2n)} 


(62) 
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where  g{n)  =  g[—n).  The  filters  G  and  H  have  the  following  relationship  [28:681] 

gin)  =  (-l)'~"/i(l  -  n)  (63) 

Notice  that  the  h{n)  and  g{n)  are  reflected  about  n  =  0  and  shifted  relative  to  each  other. 
Even  though  the  convolution  operation  occurs  for  all  shifts,  it  is  very  important  to  maintain 
the  relative  shift  of  g{n)  with  respect  to  h(n).  In  other  words,  these  response  functions  must 
be  defined  to  have  a  relative  offset  of  one,  as  shown  in  Equation  63,  for  whatever  convolution 
routine  is  used. 

Now,  armed  with  a  set  of  response  functions,  h{n)  and  g[n),  Equations  61  and  62 
can  be  implemented  iteratively  to  decompose  the  scale  coefficients  of  a  signal  at  the  finest 
level  of  resolution  into  the  scale  coefficients  and  detail  coefficients  at  each  level  of  resolution. 
Because  the  number  of  scale  coefficients  diminishes  by  a  power  of  two  at  each  iteration,  the 
extent  of  this  decomposition  is  limited  by  the  size  of  the  response  functions.  For  example,  a 
signal,  /(x),  with  128  discrete  samples  decomposed  with  response  functions,  h{n)  and  p(n), 
that  have  11  samples  each  can  produce  scale  and  detail  coefficients,  A^;/  and  D27/,  for  four 
levels  of  resolution.  At  the  fourth  level,  the  scale  coefficient  contains  only  eight  elements 
which  is  not  enough  to  meaningfully  convolve  with  the  eleven  element  response  functions. 

The  response  function  h{n)  and  its  lowpass  filter  H  that  correspond  to  the  cubic  spline 
mother  wavelet  of  Figure  12  are  shown  in  Figure  35.  Using  Equation  63,  we  derived  the 
response  function  g{n)  from  h{n).  It  is  plotted  along  with  its  highpass  filter  G  in  Figure  35. 
From  these  plots,  it  is  apparent  that  H  is  a,  low  pass  filter  which  smooths  the  signal  and  G 
is  a  high  pass  filter  which  captures  the  details  lost  in  the  smoothing  process.  The  algorithm 
given  by  Equations  61  and  62  is  diagramed  in  Figure  34  which  is  redrawn  from  [28:681]. 

/,.3.S  Two  Dimensional  Multiresolution  Deeomposition  The  two  dimensional  case  is 
a  natural  extension  from  one  dimension.  Equations  38,  42,  43,  and  44  give  the  scale  and 
detail  coefficients.  These  correspond  to  Mallat’s  Equations  (39)  through  (40)  [28:684].  Our 
interpretation  of  these  equations  when  the  response  functions  h{n)  and  g{rt)  are  incorporated 
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is  as  follows: 


Figure  34.  One  Dimensional  Multircsolution  Decomposition  (28:681] 


f){k,  1)  *  h{k)  *  h{l)){2n,  2m)  (64) 

=  (A2J+1  f)ik,  1)  *  ~h{k)  *  g{l)){2n,  2m)  (65) 

=  ( A2J+1  f){k,  1)  *  g{k)  *  h{l)){2n,  2m)  (66) 

=  ( A2^+i  f){k,  1)  *  g{k)  *  g{l)){2n,  2m)  (6”) 


for  j,k,l,m,n  €  Z  where  f{x,y)  €  L^(R^)).  The  scale  coefficients,  A^,/,  become  succes¬ 
sively  smoother  versions  of  themselves  and  the  details  that  are  lost  in  smoothing  are  captured 
in  the  three  sets  of  detail  coefficients,  D^;/,  jDjj/,  and  D^,/.  Each  of  these  sets  of  detail 
coefficients  represents  an  orientation  as  shown  in  Figure  13. 

In  Equations  64  through  67,  separate  discrete  variables  k  and  /  are  used  to  emphasize 
that  the  response  functions  h{n)  and  g[n)  operate  on  rows  and  columns  independently.  This 


61 


Figure  35.  Response  and  Filter  Functions  Based  on  Cubic  Spline  Wavelet 
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emphasis  plays  an  impoi  Unt  role  in  understanding  the  mistake  in  Mallat’s  Figure  12  [28:685] 
which  diagrams  the  two  dimensional  decomposition  algorithm.  There  is  an  inconsistency 
between  the  text  and  the  figure  that  we  resolve  in  the  following  manner.  First,  we  correct 
in  boldface  the  text  in  paragraph  A,  first  subparagraph,  fifth  sentence  to  read 

We  first  convolve  the  cols  of  A^j+if  with  a  one-dimensional  filter,  retain  ev¬ 
ery  other  row,  conlvolve  the  rows  of  the  resulting  signals  with  another  one¬ 
dimensional  filter  and  retain  every  other  column. 


Figure  36.  One  Dimensional  Multiresolution  Reconstruction  [28:682 


Next  we  correct  his  Figure  12  exchanging  the  words  ‘columns’  and  ‘rows’  at  the  top  of  the  di¬ 
agram.  To  understand  why  these  corrections  are  necessary,  consider  the  independetjt  nature 
of  the  one  dimensional  convolutions  performed  on  rows  and  columns.  In  the  decomposition 
process,  the  rows/colunins  and  respective  li{u)ffj{n)  convolution  pairs  must  be  the  .same  as  in 
the  reconstruction  process.  In  other  words,  the  reconstruction  and  dccom [position  j)roce.sscs 
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must  be  mirrors  of  each  other.  Figure  37  diagrams  the  algorithm  given  by  the  pyramidal 
transforms  of  Equations  64  through  67.  Figure  37  is  Mallat’s  Figure  12  [28:685]  redrawn  and 
corrected. 


Figure  37.  Two  Dimensional  Multiresolution  Decomposition  [28:685 


Jf.3.3  Multircsolution  Reconstruction  In  his  Equation  (32)  [28:682],  Mallat  shows  that 
the  scale  coefficients  at  any  level  j  +  1  can  be  reconstructed  from  the  scale  and  detail  coeffi- 


dents  from  ihe  adjacent  level  j.  Our  interpretation  of  this  equation  is 


At«/  =  2((Ai/)(  j)  .  h{k))(n)  +  2((D„/)(|)  *  «(*))(»)  (68) 

This  equation  is  implemented  by  inserting  zeroes  between  each  -'ample  of  A^jf  and  D2; /  and 
convolving  the  results  with  h(n)  and  g(n)  respectively.  Finally,  the  convolution  results  are 
added  point  by  point.  The  factor  of  two  comes  from  the  way  Mallat  normalizes  his  response 
function  and  is  not  necessary  if  implementing  a  Daubechies  response  function  as  given  in  [7]. 
Figure  36  diagrams  the  algorithm  of  Equation  68.  This  figure  is  redrawn  from  Figure  7  in 
[28:682]. 

4.3.4  Two  Dimensional  Multiresolution  Reconstruction  The  reconstruction  of  a  func¬ 
tion  f{x,y)  €  L^(R^)  from  the  coefficients  obtained  by  using  Equations  64  through  67  is  a 
natural  extension  of  the  one  dimensional  reconstruction.  We  apply  the  same  notation  ex¬ 
tended  to  two  dimensions.  Again,  we  use  the  discrete  variables  k  and  /  for  row  and  column 
operations  respectively.  It  is  important  for  the  rows/columns  and  h{n)lg{n)  reconstruction 
convolution  pairs  to  match  the  decomposition  convolution  pairs.  In  other  words,  the  recon¬ 
struction  must  be  a  mirror  of  the  decomposition.  This  point  is  illu.strated  in  Equation  69. 
For  the  two  dimensional  case,  the  reconstruction  equation  is: 


4((DU)(|4)  + 

(69) 

where  v,m  G  Z. 
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A  row  of  zeroes  is  inserted  between  each  row  before  the  columns  of  each  coefficient  set 
is  convolved  with  the  designated  response  function.  Then,  a  column  of  zeroes  is  inserted 
between  each  column  before  the  rows  are  convolved  with  the  designated  response  function. 
Finally  the  convolution  results  are  added.  Again  the  factor,  this  time  four,  is  for  normaliza¬ 
tion  of  the  h(n)  for  the  cubic  spline  as  derived  by  Mallat  and  is  not  necessary  if  implementing 
Daubechies  /i(n)’s  [7].  Figure  38  diagrams  equation  69.  This  figure  is  adapted  from  Figure 
13  in  [28:686]. 


Figure  38.  Two  Dimensional  Multiresolution  Reconstruction  [28:686] 


66 


At  any  level  of  resolution,  the  scale  or  detail  coefficients  can  be  projected  onto  the  scale 
or  detail  spaces  respectively  by  using  the  general  form  of  Equations  59  and  60  given  here  in 
Equation  70  for  the  one  dimensional  case  and  in  Equation  71  for  the  two  dimensional  case. 

A;,/  =  ({Ai)(n).^_,(n))(<:)  (70) 

A,,/  =  ((At)(n,m)  » <hi{n)  »  Mm))(k,l)  (71) 

4.3.5  Fine  Points  Of  The  Implementation  of  the  Algorithm  This  section  will  address 
some  of  the  more  subtle  problems  which  we  encountered  in  the  implementation  of  the  mul¬ 
tiresolution  algorithm.  Readers  interested  in  implementing  this  algorithm,  take  heed. 

4.3.5. 1  Missing  Coefficients  in  the  Reconstruction  The  Multiresolution  Algo¬ 
rithm  promises  an  exact  reconstruction  can  be  accomplished  from  the  retained  coefficients 
of  the  decomposition  process.  The  number  of  coefficients  of  the  approximation  Mjf  plus 
the  number  of  coefficients  of  the  detail  D2_,/  should  be  equal  to  the  number  of  samples  of 
the  original  signal  or  image.  Since  we  generate  the  coefficients  with  the  shift,  multiply,  and 
sum  process,  there  are  always  more  coefficients  than  he  original  number  of  samples.  The 
number  of  resulting  coefficients  is  equal  to  the  number  of  samples  of  the  original  signal  plus 
the  number  of  elements  in  the  filter.  We  discard  the  least  important  coefficients,  those  that 
border  the  image  or  signal.  This  results  in  an  inexact  reconstruction  of  the  border  or  edge 
of  the  signal.  This  can  be  a  significant  problem  since  the  decomposition  process  results  in 
an  increasingly  smaller  number  of  coefficients.  Thus,  a  border  error  at  the  fifth  level  with 
respect  to  two  coefficients  will  result  in  a  reconstruction  error  spread  over  64  samples  of  the 
original  signal.  Mallat  suggests  the  border  problem  can  be  reduced  by  making  the  origi¬ 
nal  signal  symmetric  with  regard  to  the  first  and  last  sample  or  in  the  2D  case  make  the 
image  .symmetric  with  respect  to  the  horizontal  and  vertical  bordcrs{28:681).  I’his  process 
eliminates  the  border  problem  completely  if  the  filter  is  .symmetric  and  the  recon.st ruction  is 
accomplished  with  the  same  a.ssunK!d  border  symmetrv  as  in  the  deconif)osition.  If  the  filter 
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is  asymmetric  the  problem  may  only  be  alleviated  by  p.idding  tlic  image  with  enough  extra 
elements  to  retain  the  extra  convolution  coefficients. 

4.3. 5.2  Convolution  Methods  There  are  two  main  methods  of  accomplishing 
convolution.  The  first  is  to  calculate  the  so  calkd  “convolution  sum’’  using  a  shift  multiply 
and  sum  routine.  The  second  is  to  take  the  Fourier  Transform  of  the  two  functions,  multiply 
them  point  by  point,  and  take  the  inverse  Fourier  Transform.  The  first  method  is  normally 
considered  slower.  It  has  a  time  complexity  of  O(N^)  assuming  that  the  functions  to  be 
convolved  are  the  same  si2e.  The  Fourier  Transform  method  used  with  the  Fast  Fourier 
Transform  (FFT)  has  a  time  complexity  of  O(NMogN).  In  the  multiresolution  algorithm,  the 
filters  used  are  normally  a  fraction  of  the  size  of  the  signal  or  image  of  interest.  This  enables  us 
to  reduce  the  time  complexity  of  the  shift  multiply  and  sum  routine  to  approximately  0(N). 
Therefore,  we  have  chosen  the  shift,  multiph',  and  sum  method.  However,  our  investigation 
of  the  Fourier  Transform  method  revealed  some  interesting  points  of  the  application  at  hand, 
which  we  include  for  the  benefit  of  the  reader  in  the  following  section. 


4.3.5.3  Numerical  Recipies  in  C  Convolution  Routine  The  convolution  routine 
in  Numerical  Recipies  in  C  is  a  function  called  convlv.  The  interface  to  this  function  requires 
the  response  function  have  an  odd  number  of  values  m  and  be  stored  in  an  array  in  “wrap 
around  order”.  Wrap  around  order  as  shown  in  Figure  -39  requires  those  elements  of  the 
response  function  greater  than  or  equal  to  zero  on  the  discrete  time  (sample)  axis  to  reside 
in  that  order  in  the  first  positions  in  the  input  response  array,  “respns*’.  Those  response 
elements  less  than  zero  on  the  discrete  tim^  (sample)  axis  must  be  stored  in  t)ic  same  order 
in  the  last  positions  in  the  response  array.  If  the  same  variable  name  is  u-sed  more  than  once 
to  hold  the  response  array  input  to  '•onviv,  it  must  be  reset  eacii  lime  the  prucedure  is  called. 
This  is  due  to  the  fact  that  the  '■esp«;nse  array  is  altered  earli  time  comb  is  caiied.  While 
these  are  fine  points  in  the  luse  of  the  c  »n\v>lution  routine,  they  mu.sJ  be  exactly  f<«iowefi-  Un 
successful  convolutions  using  Numerical  Recipies  in  C. 


Figure  39.  Wrap  Around  Order  for  the  Convlv.c  Procedure 


4-3. 5. 4  Problems  Encountered  Using  the  Khoros  System  All  of  the  images  used 
in  the  decomposition  analysis  were  composed  of  integer  grey  scale  values  between  0  and  2.55. 
They  exist  in  a  floating  point  format  to  obtain  the  needed  accuracy  in  the  decomposition 
and  reconstruction  algorithm.  We  visually  evaluate  the  results  of  the  reconstruction  with  the 
Khoros  image  processing  system  provided  by  the  University  of  New  Mexico  [37].  The  first 
reconstructed  images  viewed  in  this  system  appeared  to  be  much  darker  than  the  original 
image.  After  analyzing  the  resulting  floating  point  values  of  the  reconstructed  image  we 
discovered  that  zero  gray  scale  values  in  the  original  image  corresponded  to  small  negative 
values  in  the  reconstructed  image.  Inherent  in  the  Khoros  display  .system  is  a  normalization 
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proce<;?  which  compresses  the  dynamic  range  of  the  lest  of  the  image  to  accommodate  the 
negative  numbers.  To  produce  a  more  visually  acceptable  reconstruction,  we  set  all  values 
less  than  zero  to  zero  and  greater  than  255  to  255. 

Ji.^.6  Examples  The  Multiresolution  Decomposition  decomposes  an  image  into  a 
lower  resolution  approximation  and  three  detail  signals.  This  process  is  iterated  to  ob¬ 
tain  successively  lower,  coarser,  resolution  approximations  and  details.  This  section  along 
with  the  following  diagrams  will  demonstrate  this  process  and  provide  additional  insight  into 
the  frequency  content  of  these  approximation  and  detail  signals. 

Figures  41-43  show  the  detail  coefficients  from  a  decomposition  of  an  original  image 
made  up  of  two  rectangular  boxes.  We  chose  this  image  for  its  pristine  vertical  and  hor¬ 
izontal  high  frequency  content,  edges.  These  detail  signals  are  thresholded  and  binarized 
using  our  threshold  program  discussed  previously.  These  figures  illustrate  the  edge  detection 
capability  of  multiresolution  wavelet  analysis  and  the  orientation  selectivity  of  the  different 
detail  signals.  The  magnitude  of  the  Fast  Fourier  Transform  of  the  wavelet  detail  coefficients 
in  Figure  45,  demonstrates  how  well  this  orientation  selectivity  is  accomplished.  The  orig¬ 
inal  image,  two  rectangular  boxes,  is  also  shown  in  the  figure.  These  plots  illustrate  how 
the  frequency  content  of  each  detail  signal  is  localized  '.n  terms  of  orientation.  The  D\]f 
coefficients  contain  the  horizontal  high  frequency  infoi"mation,  the  D^;/  coefficients  contain 
the  vertical  high  spatial-frequency  information,  and  the  D^,/  coefficients  contain  the  higher 
angular  frequency  Information  of  the  original  image.  In  this  figure,  we  arbitrarily  chose 
level  j  =  —4  foi  documentation  convenience.  All  levels  of  resolution  are  shown  to  have  this 
orientation  selective  characteristic  as  diagramed  in  Figure  13. 

Figures  46-52  illustrate  the  main  facets  of  the  multiresolution  decomposition  and  lecon- 
struction  process.  The  original  image,  512x512  Lenna,  is  given  in  Figure  46  foi  a  compari.son 
with  the  various  results  of  multiresolution  process.  Figure  17  is  the  reconstructed  Lenna  from 
a  5  level  decomposition.  The  successively  coarser  approximations  of  Lenna  are  shown 
in  Figure  48  on  the  left  side  of  the  page.  Notice  the  reduction  in  size  as  a  result  of  the  down 
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sampling  from  the  original  Lenna  Figure  46  (level  0)  to  the  first  approximation  (level  1)  in 
the  upper  left  corner  of  Figure  48.  The  right  side  of  Figure  48  from  top  to  bottom  shows 
the  series  of  reconstructed  approximation  of  Lenna.  The  final  reconstruction  (level  0) 
is  found  in  Figure  47.  The  coarsest  approximation  of  Lenna,  a  16x16  image,  is  found  in  the 
center  of  Figure  48.  This  level  5  approximation  along  with  the  detail  coefficients  found  in 
Figures  49-52  are  used  to  accomplish  the  reconstruction.  Note  that  these  coefficients  have 
been  thresholded  to  make  the  orientation  specific  frequency  content  viewable. 


Figure  40.  Original  Image  of  Boxes  (Reduced  58%) 


Conclusion 

This  chapter  evaluates  two  methods  of  multiresolution  analysis.  It  demonstrates  only 
the  decoi.iposition  capability  of  the  projection  method,  although  reconstruction  is  po.ssible. 
Basically,  the  V  and  W  space  projections  at  some  arbitrary  coarse  level  of  decomposition 
are  added  point  by  point.  The  result  is  then  added  to  the  14'"  space  projections  at  the 
next  finer  level  of  resolution.  This  process  is  iterated  until  the  finest  level  approximation  is 
reached  resulting  in  the  final  reconstruction.  We  elected  not  to  pursue  this  technique  due  to 
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Figure  42.  Vertical  Multiresolution  Detail  Coefficients  of  Boxes  (Reduced  25%) 
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Figure  43.  Angular  Multiresolution  Detail  Coefficients  of  Boxes  (Reduced  25%) 


Figure  44.  Coarsest  Approxiiriation  of  Boxes  Used  for  Reconstruction  (Reduced  25%) 


004.302 


Mag  of  FFT  of  ^.dl  of  Whito  Boxos 


F'igure  45.  Frequency  Support  of  Detail  Signals  Of  The  Cubic  Spline  Wavelet 
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Figure  46.  Original  Image  of  Lenna  (Reduced  2%) 


Figure  -50.  Vertical  Multiresolution  Detail  Coefficients  of  Lenna  (fieducecl  25%) 
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Figure  51.  Angular  Multiresolution  Detail  Coefficients  of  Lenna  (Reduced  25%) 


Figure  52.  Coarsest  Approximation  of  Lenna  Needed  for  Hcronstruction  {H<*duced  25%) 


79 


the  computational  overhead  as<^ouated  with  the  projection  of  every  set  of  tlie  deco^lpo^e<l 
coefficients  onto  the  V  and  H  '  spaces  for  addition.  Instead,  we  chose  to  implement  the  recon¬ 
struction  with  the  second  method  of  multiresolution  analysis  described  in  this  chapter,  using 
Quadrature  Mirror  Filters  (QMF).  In  this  method,  the  sets  of  scale  and  wavelet  coefficients 
get  logarithmically  smaller  with  ‘oarser  levels  of  resolution.  Moreover,  the  algorithm  does 
not  requi»'e  that  the  coefficients  be  projected  at  each  level  of  resolution.  For  these  reasons, 
we  use  the  QMF  method  as  the  tool  for  analyzing  the  data  in  this  thesis. 
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V.  Preliminary  Results 


With  the  Multiresolution  Wavelet  Decomposition  at  our  disposal,  we  have  a  tool  with 
which  we  can  analyze  an  image  in  a  way  similar  to  the  works  of  Ginsburg  [14]  and  Oberndorf 
[32].  That  analysis  is  the  subject  of  this  chapter. 

5.1  Review  of  Multiresolution  Wavelet  Decomposition 

The  multiresolution  decomposition  system  breaks  the  input  image  out  into  bands  of 
information  each  consisting  of  one  octave  of  spatial  frequency  on  a  logarithmic  scale.  Each 
band  is  further  decomposed  into  three  sets  of  wavelet  coefficients  representing  horizontal, 
vertical,  and  angulai  orientations  (See  Figure  13).  The  decomposition  also  produces  a  set 
of  scaling  coefficients  for  each  level  of  resolution  that  represents  the  information  contained 
in  all  of  the  lower  frequency  bands  below  that  level.  These  scaling  coefficients  form  an 
approximation  of  the  original  input  image  at  successively  coarser  resolution  for  lower  and 
lower  frequency  bands.  Each  of  these  coefficients  can  also  be  described  as  the  result  of 
subtracting  a  band  of  information  at  all  orientations  from  the  scale  coefficients  that  represent 
one  octave  finer  resolution.  Due  to  the  down  sampling  involved  with  the  decomposition 
process,  the  number  of  subbands  or  the  depth  of  the  decomposition  is  limited  by  the  size 
or  the  interval  of  support  of  the  filter  h{n).  For  example,  using  a  filter  with  an  interval  of 
support  of  23, •512x.5r2  sampled  input  image  can  be  decomposed  into  fi  ve  levels  cT  rc.solution 
where  the  fifth  level  of  decomposition  consists  of  three  .sets  of  wavelet  coefficients  and  one 
set  of  scale  coefficients  each  containing  16x16  values.  Since  the  size  of  the  rows  and  columns 
is  greater  than  the  size  of  th^  filter,  no  fiirthei  decomposition  would  be  meaningful.  The 
reconstruction  reverses  the  process  combining  the  coarsest  level  scale  coefficients  with  all 
band  information  to  rebuild  the  original  image. 
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5.2  Methodology 

In  the  Kanisza  Triangle  illusion,  two  anomalies  occur:  1.  Iliusuiy  coniourb  seem  to  aj)- 
pear  forming  the  distinct  impression  of  a  .riangle  and  2.  The  relative  intensity  within  the  area 
bounded  by  the  illusory  contours  appears  exaggerated  relative  to  the  background  intensity 
of  the  image  [38].  Both  Ginsburg  and  Oberndorf  addressed  these  effects  by  means  of  lowpass 
filtering  the  image.  “It  is  the  energy  differences  between  the  various  areas  (“physical  intensity 
distribution”[13:65])  of  the  anomaly  which  suggest  how  data  is  being  forwarded  to  the  ar¬ 
eas  of  the  brain  where  concept  formulation  (i.e.  object  recognition)  is  taking  place.“[32:3-l|. 
Since  the  wavelet  approximations  (scale  coefficients)  are  succe.ssively  lowpass  filtered  ver¬ 
sions  of  the  original  image,  it  is  appropriate  to  compare  one  of  these  approximations  tu  their 
results.  To  figure  out  which  approximation  contains  the  proper  frequency  range,  we  must 
characterize  the  levels  of  resolution  in  terms  of  the  spatial-frequencies  they  contain.  In  our 
analysis,  the  dimension  of  the  original  image  is  512x512  pixels  (.see  Figure  -53).  Thus,  the 
sample  rate  is  512  pixels  per  object  in  both  the  horizontal  and  vertical  diicetions.  Therefore, 
due  to  the  N\'quist  criteria,  the  highest  spatial- frequency  detectable  in  this  rcpre.scntation 
is  256  cycles  per  object.  The  process  of  down  sampling  by  two  at  each  level  of  the  decom¬ 
position  produces  successively  coarser  approximations  of  the  origin.T.1  image  such  that  the 
highest  spatial-frequency  detectable  is  reduced  by  one  octave  on  a  log  scale  (reduced  by  a 
power  of  2).  Figure  5-1  shows  the  maximum  spatial-frequency  contained  in  each  level  of 
approximation. 

For  comparison  witii  Ginsburgs  results,  Oberndorf  cho.se  a  lowpa.s.'.  filler  containing 
spatial-frequencies  out  to  16  cycles/objcct  [.32:36].  From  the  table  in  Figure  .")■!.  we  catJ  .see 
that  16  f\'cles  per  object  corresponds  to  the  fourth  approximation.  But.  thi.s  approximation 
contains  32x32  samples  which  looks  relatively  sharp  at  that  level,  'riu-refore.  we  need  to 
expand  it  to  the  .scale  of  the  original  image  (512x512)  for  comparison.  'I  lw  program  expd 
performs  this  function  (.sec  .Appendix  F.2  for  .source  listing).  CJiven  an  input  filename  and 
the  expansion  facloi.  this  program  expands  the  image  using  a  two  dinien.sional  <  iibic  spline 
interpolation  [35:10'1].  The  results  of  performing  this  expansion  on  the  level  ffuir  approxitna- 


Figure  53.  Kanisza  Triangle  Illusion 
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Level 

Detail  Coefficients 

Scale  Coefficients 

cycles /object 

cycles/object 

1 

128  -  256 

0-  128 

2 

64  -  128 

0-64 

3 

32-64 

0-32 

4 

16-32 

0-  16 

5 

8-  16 

0-8 

6 

4-8 

0-4 

7 

2-4 

0-2 

8 

1  -  2 

0-  1 

Figure  54.  Relative  Spatial-Frequency  Range  of  Each  Level  of  Approximation 

tion  of  the  original  Kanisza  of  Figure  53,  is  depicted  in  figure  55.  While  the  energy  is  spread 
out  from  the  objects  in  the  original  image,  it  does  not  spread  out  more  in  a  direction  away 
from  the  illusory  figure  as  in  Oberndorf’s  results  (reproduced  in  figure  6). 

5.3  Conclusion 

This  comparison  leads  to  the  conclusion  that  Oberndorf’s  Gabor  Lowpeiss  filter  pos¬ 
sesses  characteristics  not  found  in  the  filtering  process  of  the  Multiresolution  Wavelet  De¬ 
composition.  Along  this  line  of  reasoning,  an  obvious  difference  between  the  Gabor  filtering 
and  the  decomposition  filtering  is  the  ringing  associated  with  the  sharp  cutoff  of  the  Gabor 
filter.  It  might  be  this  ringing  which  spreads  the  energy  to  help  define  the  illusory  contours 
and  the  apparent  contrast  in  sensitivity.  If  this  is  true,  it  suggests  the  spatial  filtering  process 
of  the  brain  is  also  characterized  by  ringing.  On  the  other  hand,  it  may  be  that  the  spatial 
filtering  alone  is  not  enough  to  cause  the  perception  of  the  illusion.  Rather,  it  might  be  that 
spatial  filtering  is  combined  with  some  other  cerebral  processing.  After  all,  experimentation 
has  uncovered  the  functions  of  only  small  parts  of  the  cerebral  complex. 

In  the  remainder  of  the  thesis,  we  process  the  scale  coefficients  in  three  biologically 
motivated  ways  to  analyze  the  Kanisza  Triangle  illusion.  The  first  method  uses  the  principle 
of  the  saccadic  fixation  of  the  human  eye.  It  builds  individual  frames  of  the  field  of  view  in 
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Figure  55-  The  Kanisza  Triangle  Approximated  at  Level  Four 
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which  each  frame  represents  a  single  saccadic  fixation.  In  the  second  method,  we  perform  a 
one  dimensional  Multiresolution  Wavelet  Decomposition  in  the  time  domain  in  which  each 
set  of  coefficients  generated  from  the  two  dimensional  decomposition  is  sampled  in  time. 
We  use  this  method  to  include  temporal  processing.  Finally,  the  last  method  uses  the  scale 
coefficients  as  inputs  to  a  Boundary  Contour  System  Model.  We  us^'  this  last  method  to 
investigate  the  local  interaction  of  high  spatial-frequency  energy. 


% 
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VI.  Building  a  World  Model 


The  next  three  chapters  each  present  a  uniciue  model  of  some  part  of  the  Human  Visual 
System  and  the  corresponding  analysis  of  visual  illusions  using  that  model.  In  this  cb  .pter, 
we  present  the  first  of  the  three,  a  model  of  the  human  retina,  and  the  results  of  using  the 
Kanisza  Triangle  as  the  input  image  (see  Figure  53).  The  major  component  and  heart  of  all 
three  systems  is  the  Multiresolution  Wavelet  Decomposition  which  we  described  in  detail  in 
previous  chapters.  Here,  we  explain  its  application  as  a  front  end  to  the  model  of  the  human 
retina. 

6.1  Methodology 

The  human  retina  contains  a  random  arrangement  of  photoreceptors  called  rods  and 
cones.  Here,  we  will  consider  only  the  cones  for  their  use  in  high  acuity  vision.  The  density  of 
cones  on  the  retina  is  higher  in  the  center  than  at  the  edges.  This  distribution  of  cells  has  been 
characterized  by  an  1894  experiment  [39:441]  and  is  redrawn  in  Figure  56.  The  figure  shows 
how  density  distribution  causes  the  receptive  field  of  the  retina  to  sample  a  stimulus  image 
with  high  acuity  or  resolution  at  the  center  and  progre.ssively  lower  resolution  toward  the 
perephery.  We  use  the  different  levels  of  scale  coefficients  from  the  Multiresolution  Wavelet 
Decomposition  to  simulate  this  resolution  distribution.  The  retina  based  model  constructs 
an  image  with  high  resolution  only  in  the  center  and  successively  coarser  resolution  toward 
the  perephery  by  strategically  placing  the  scale  coefficients  of  the  appropriate  resolution. 
Figure  58  shows  how  each  set  of  coefficients  is  located  on  the  constructed  image  emulating 
a  single  fixation  of  the  retina  at  the  center  of  the  image.  The  program  fbxiild  builds  the 
individual  frames.  A  flow  diagram  for  an  example  input  of  four  levels  of  resolution  is  shown 
in  Figure  59.  The  source  code  for  fbxiild  is  contained  in  Appendix  C.2.  To  create  this  figure, 
we  first  decomposed  the  Kanisza  Triangle  with  the  Multiresolution  Wavelet  Decomposition 
program  xvaveS  (see  Chapter  IV).  Then,  to  simulate  a  single  fixation  of  the  retina,  fbxiild 
performs  three  basic  functions:  1.  It  extracts  the  appropriate  subset  of  coefficients  from  the 
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Figure  56.  Relative  Acuity  of  Vision  Curve  [39:441] 


Figure  57.  Artificial  Relative  Acuity  of  Vision  for  Model 
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Figure  58.  Multiresolution  Fixdtion  Map 


scale  coefficients  at  each  level  of  resolution,  2.  It  expands  each  extraction  to  the  scale  of  the 
original  image  using  a  two  dimensional  cubic  spline  interpolation  [35:104],  and  3.  It  places 
the  expanded  exserts  in  the  proper  location  in  the  constructed  simulation.  Figure  57  shows 
the  artihcial  relative  acuity  emulated  with  this  method.  The  piecewise  constant  shape  of 
this  curve  causes  the  blocky  appearance  in  Figure  60.  We  translate  degrees  of  the  perceptive 
field  in  Figure  56  to  the  sample  space  of  the  512x512  sampled  image  by  choosing  the  viewing 
distance  to  be  3.18  inches.  Therefore,  one  degree  of  visual  angle  is  equivalent  to  four  pixels 
across  the  image.  While  the  density  distribution  of  Figure  57  is  not  an  exact  match  with 
that  of  Figure  56,  it  provides  roughly  the  same  exponential  shape.  The  myopic  view  of  the 
image  provided  by  Figure  61  demonstrates  the  first  step  in  building  a  perceptual  model  of 
the  image  in  which  the  entire  picture  seems  to  be  in  focus.  The  composite  high  resolution 
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model  is  due  to  the  saccadic  mo' ements  of  the  human  eye  in  which  the  eye  fixates  on  onp 
highlight  of  the  visual  field  after  another  in  rapid  successicn  [20:821].  With  each  movement, 
le  photoreceptois  sample  the  visual  field  forming  a  series  of  myopic  frames  similar  to  the 
one  shown  in  Figure  61.  Figure  61  is  an  example  of  the  output  of  this  program.  Because 
the  brain  supresses  inputs  from  th '  visual  field  during  the  saccades,  the  observer  is  unaware 
of  the  movement.  The  effect  of  this  biological  process  is  to  create  the  perception  of  a  high 
resolution  “motion  picture”  of  the  field  of  vision. 

We  emulate  this  perceptual  model  with  a  series  of  these  myopic  frames  assuming  that 
the  brain  provides  a  short-term  memory  to  maintain  a  certain  number  of  these  frames  which 
compose  the  world  model  ai,  a  perceptual  instant  in  time.  Therefore,  we  have  chosen  a  finite 
n..mber  of  frames  to  represent  the  composite  image.  Figure  60  shows  a  composite  set  of 
frames  which  have  been  combined  in  one  image  for  static  presentation.  For  simplicity,  we 
do  not  incorporate  other  normally  imperceptable  eye  movements  such  as  1.  The  “continuous 
tremor”  at  30  to  80  cycles  per  second  due  to  successive  muscular  contractions  which  serves 
to  increase  the  overall  resolution  of  the  visual  perception,  2.  The  “slow  drift”  of  the  eyes,  and 
3.  The  “flicking”  movements  that  recenter  the  point  of  fixation  in  the  receptive  field  after 
the  “slow  drift”  has  taken  place  [20:820].  To  limit  the  total  number  of  fixations  or  frames 
in  our  composite  image,  we  consider  that  the  eye  needs  only  fixate  where  the  high  spatial 
frequency  information  is  located  in  the  stimulus  image’.  Therefore,  a  manually  generated 
set  of  fixations  locations  based  on  the  locations  of  most  likley  high  spatial  frequency  energy 
contribution  to  the  precept  are  used  to  generate  a  series  of  frames  with  the  Jbuild  program. 
If  all  the  frames  are  taken  together,  the  result  is  a  composite  image  as  in  Figure  60. 

6.2  Conchision 

The  ob.servation  that  led  to  this  approach  is  that  the  illusion  docs  not  appear  when  the 
viewer  forces  fixation  at  one  point  in  the  image;  thus,  eliminating  the  saccades  of  the  eye. 

’This  principle  has  been  used  by  Mallal  and  others  for  image  coding  and  compres.sion  applications. 
[27,26.1,42] 
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Figure  60.  Compo.sit.e  Representation  Including  34  Fixation  Points 
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This  suggests  that  the  saccadic  niovcincnt  is  necessary  the  formulation  of  th  illusion. 
Compared  to  the  previous  results  of  Figure  55.  the  low  spatial  frequcnc}'  spreading  in  Figure 
60  is  found  now  only  in  the  areas  not  replaced  b}-  high  resolution  information.  While  this 
does  not  discount  the  importance  of  the  ‘‘ringing”  in  the  Ginsburg  and  Obcrndorf  results, 
t  does  empheisize  the  necessitj'-  of  incorporating  the  sacxadic  movement  as  a  contributor 
to  the  perceptual  formulation  of  the  illusion.  Moreover,  the  failure  of  the  Ginsburg  and 
Oberndorf  results  to  cause  the  suggestive  contours  to  appear  distinctly,  leads  us  to  conclude 
that  high  spatial-frequency'  energy  local  to  the  contours  is  required  for  the  perception.  In¬ 
deed,  our  frame  built  model  illustrates  how  the  quality  of  the  illusion  is  enhanced  by  adding 
high  spatial-frequency'  information  along  the  suggestive  contours.  The  reader  may  wonder 
how  many  fixation  points  are  necessary  to  produce  an  illusion  of  “good  quality'”.  Figure 
62  illustrates  the  dramatic  effect  of  using  only  15  different  fixation  points  along  the  sug¬ 
gestive  contours.  W'e  believe  these  results  demonstrate  the  correctness  of  considering  the 
high  spatial -frequency  information  local  to  the  contours,  which  is  the  goal  of  our  Boundary 
Contour  Model  described  in  Chapter  VIll.  An  additional  implication  is  that  if  the  location 
and  rate  of  fixation  is  controllable,  it  may  be  possible  to  eliminate  the  illusion  by  drawing 
the  attention  of  the  viewer  away  from  the  illusory  contours.  To  test  this  hypothesis,  one 
would  need  to  build  a  version  of  the  composite  image  using  fixation  points  that  are  outside 
the  locality'  of  the  contributory  objects.  The  result  would  be  overwriting  more  of  the  low 
spatial- frequency  spreading  in  effect  balancing  the  energy  spread.  But  the  number  of  fixa 
tion  points  required  to  produce  this  effect  must  be  dctcrmiiie<l.  The  number  would  depend 
in  some  way  on  how  many  points  can  be  “remembered”  by  the  concept  forming  areas  of 
the  brain  which  is  beyond  the  .scope  of  ihi.s  thesis.  However,  considering  visual  information 
transmission  from  the  sensing  device,  retina,  to  the  brain  to  be  a  serial  process,  we  can  think 
of  the  perceptual  model  as  one  built  up  over  time.  This  bring.s  us  to  the  letnporal  asirect  of 
perception  which  we  explore  by  first  coiisirlering  each  fi.xation  as  a  frame  in  time.  So  as  not 
to  incorporate  too  many  variables  at  «»iice.  the  next  chapter  ton.siders  .spatial  filtering  and 
temporal  filtering  dropping  the  fixation  phenomenon. 
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Figure  62.  Composite  Respresentation  Using  15  Fixation  Points 
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VIL  A  Spatial- Temporal  Model 


The  second  method  of  analysis  is  designed  specifically  for  spatial-temporal  illusions 
in  which  the  human  percept  of  temporally  and  spatially  discrete  stimulation  is  continuous 
motion.  A  popular  example  of  this  type  of  illusion  is  the  “Phi  Phenomenon”  in  which  a  small 
dot  is  illuminated  in  one  location  in  the  perceptive  field  for  a  period  of  time  [31:108].  Then, 
after  a  specified  delay,  the  dot  is  again  illuminated  but  in  a  different  location  in  the  perceptive 
field.  If  the  product  of  the  delay  between  illuminations  and  the  distance  between  the  two  lo¬ 
cations  is  small  enough,  the  dot  will  appear  to  move  .ntinuously  between  the  two  locations. 
The  distance  limit  can  be  characterized  by  a  range  or  bandwidth  of  spatial-frequencies  and 
the  delay  can  be  characterized  by  a  range  or  bandwidth  of  temporal-frequencies.  Therefore, 
there  exists  some  fundamental  spatial-temporal  bandwidth  product  limit  above  which  the 
illusion  is  perceived.  The  two  dimensional  Multiresolution  Wavelet  Decomposition  explained 
in  Chapter  III,  demonstrated  in  Chapter  IV,  and  used  in  Chapters  V  and  VI  provides  the 
needed  spatial-frequency  channels  to  analyze  this  illusion  and  a  one  dimensional  version 
of  this  tool  provides  the  temporal-frequency  channels.  With  this  composite  three  dimen¬ 
sional  method  of  channel  decomposition,  we  can  control  the  spatial-temporal  bandwidth  of 
a  displayed  image. 

For  consistency  with  the  two  dimensional  analysis  of  Chapters  V  and  VI,  the  specific 
illusion  used  here  is  an  animated  version  of  the  Kanisza  Triangle  devised  for  this  thesis. 
Figure  64  shows  discrete  variations  of  the  original  Kanisza  Triangle.  When  animated  with 
the  kanrnov  program  as  frames  of  a  motion  picture,  the  suggestive  contours  appear  to  displace 
continuously  (see  Appendix  D.2  for  source  listing). 

7.1  Methodology 

Marr  recognized  that  edges  in  space  occur  in  all  octaves  of  spatial-frequency  since  thp" 
represent  discontinuity  in  space  [30].  Lewis  and  Knowles  took  this  idea,  one  step  further 
implementing  it  in  the  time  dimension,  “Motion  or  change  between  frames  produces  ‘edges’ 
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in  time”  [26:397].  In  the  same  way  that  filtering  our  high  spatial-frequencies  “blurs”  an 
image  in  space,  filtering  out  high  temporal-frequencies  “blurs”  motion  across  time.  The 
Multiresolution  Wavelet  Decomposition  approach  to  performing  this  “time  blurring”  con¬ 
stitutes  decomposing  each  pixel’s  one  dimensional  time  signal  (one  sample  per  frame)  into 
successively  coarser  approximations.  Rebui'ding  the  frames  from  a  coarser  time  approxima¬ 
tion  has  the  effect  of  smoothing  out  the  perceived  motion  emulating  or  aiding  the  perception 
of  continuous  motion  from  discretely  changing  frames. 

Figure  64  shows  frames  2,  5,  9,  13,  17,  21,  25,  29,  and  32  of  the  32  frames  used  in  this 
analysis.  In  the  interest  of  computational  time  complexity  we  use  a  256x256  sampled  version 


Figure  63.  Flow  Diagram  of  the  Spatial-Temporal  Blurring  System 

of  the  original  Kanisza  Triangle.  Each  frame  is  altered  such  that  the  illusory  contours  appear 
to  bend  deforming  the  suggestive  triangle.  The  data  flow  diagram  in  Figure  63  shows  the 
individual  steps  in  the  three  dimensional  spatial-temporal  decomposition.  The  proce.ss  circles 
represent  individual  programs,  whose  source  code  is  listed  in  Appendix  D.2.  First,  the  loaveS 
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program  described  in  Chapter  IV  decompose^  each  frame  into  several  levels  of  multiresolution 
approximation.  Next,  the  vbuild  program  reduces  the  potential  number  of  one  dimensional 
time  signals  by  finding  all  the  pixels  which  change  in  value  over  the  32  frames.  The  output 
of  this  program  is  a  set  of  vectors  which  identify  these  pixels.  These  vectors  are  used  by 
the  stripld  program  to  build  a  one  dimensional  signal  for  each  of  the  pixels  that  change. 
Then  the  ivavel  program  performs  a  Multiresolution  Wavelet  Decomposition  on  each  signal. 
Finally,  the  rbuild  program  rebuilds  the  frames  given  the  vectors  from  the  vbuild  program  and 
a  selected  combination  of  spatially  decomposed  frames  and  temporally  decomposed  signals 
output  from  the  wave2  and  wavel  programs  respectively.  The  wavel  program  used  here  is 
a  modified  version  of  the  wavel  program  described  in  Chapter  IV.  The  original  source  code 
is  listed  in  Appendix  B.4  and  the  modified  portions  are  listed  in  Appendix  D.2.  The  rbuild 
program  expands  the  time  decomposed  time  signals  to  the  original  32  samples  using  a  cubic 
spline  interpolation  [35:104]. 

For  consistency  with  the  2D  Wavelet  decompositions  used  in  Chapters  V  and  VI,  we  use 
the  cubic  spline  wavelet  for  spatial  decomposition.  However,  in  the  time  domain,  due  to  its 
size  (32  samples),  the  filters  corresponding  to  the  cubic  spline  wavelet  would  limit  us  to  only 
one  meaningful  level  of  resolution  in  the  decomposition.  Therefore,  for  the  decomposition 
in  time,  we  use  a  Daubechies  2  wavelet  whose  corresponding  filters  have  four  values  each. 
These  choices  allow  decomposition  to  three  levels  of  resolution  in  time  and  four  levels  of 
resolution  in  space.  Thus,  there  are  20  possible  combinations  of  spatial-temporally  blurred 
sets  of  frames,  levels  zero  through  four  in  space  and  zero  through  three  in  time.  Figure  65 
shows  the  nine  frames  of  Figure  64  using  the  original  frames  in  space  and  the  first  level 
approximation  in  time.  Figure  66  shows  the  same  frames  with  the  original  frames  in  space 
and  the  second  level  approximation  in  time.  Figure  67  shows  the  original  frames  in  space 
with  the  third  level  in  time.  Finally,  Figure  68  represents  the  same  frames  from  the  fourth 
level  approximation  in  space  and  the  third  level  approximation  in  time.  In  this  last  result,  the 
fourth  level  spatial  approximation  of  each  frame  is  expanded  to  a  256x256  sample  scale  with 
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the  txpd  program  (see  Appendix  F.2  for  source  !istir»g).  Figure  68  represents  the  expanded 
frames  for  comparison  to  other  figures. 

For  the  purpose  of  viewing  the  effects  of  “time  blurring”  dynamically,  we  animated 
each  set  of  32  frames  on  a  Silicon  Graphics  workstation  with  the  tblur  program. 

7.2  Conclusion 

The  original  motivation  for  performing  this  analysis  was  to  see  if  the  static  illusion 
persisted  when  the  speed  of  animation  was  such  that  the  eye  did  not  have  time  to  saccade 
enough  points  on  the  image  to  produce  the  illusion.  Assuming  the  time  between  saccades 
to  be  approximately  100  msec  [20],  and  that  only  one  fixation  per  object  in  the  image  is 
necessary  to  form  the  illusory  contours,  then  since  there  .ire  seven  objects  in  the  image,  700 
msec  would  be  required  to  produce  the  illusion  on  each  frame.  Therefore,  using  the  Silicon 
Graphics  workstation  with  a  frame  update  rate  of  approximately  20  frames  per  second,  there 
is  not  enough  time  for  the  eye  to  saccade  and  fixate  seven  times.  But,  the  animation  produced 
the  illusory  triangle  distinctly  suggesting  that  more  than  judiciously  placed  high  spatial- 
frequency  processing  provided  by  fixations  and  overall  low  spatial-frequency  processing  is  at 
work  to  produce  the  illusion. 

In  keeping  with  our  charter  of  investigating  the  contributions  of  various  frequency 
specific  processing,  consider  the  temporal-frequency  information  i  the  series  of  frames  of  an 
animated  scene.  The  brain  may  process  this  information  in  such  a  way  as  to  suppress  high 
temporal-frequencies  in  effect  smoothing  the  motion  to  give  the  eye  more  time  to  fixate  and 
saccade  around  the  scene.  Figures  65  through  67  show  the  effects  of  progressively  reducing 
the  high  temporal-frequency  content  of  the  scene.  The  range  of  spatial  variation  is  somewhat 
reduced.  It  might  be  that  this  reduction  in  spatial  variation  allows  the  brain  more  time  to 
process  the  spatial-frequency  information  requhed  to  produce  the  illusion.  All  in  all,  one 
observation  is  consistent  across  spatial  and  temporal  processing  -  that  is  that  less  high 
frequency  information  is  required  to  form  the  illusory  contours.  While  low  spatial  frequency 
information  is  required  of  the  entire  image  to  piovidc  the  oveiall  form,  high  spatial-frequency 


100 


41 

4» 

44 

V7 

V  ”7 

V  1 

#1 

A 

V  "7 

V  V 

V  7 

C*  \/  ^ 

r  7 

r  7 

r  7 

i.  j 

V 

i.  j 

Figure  65.  Frames  of  Kaiiisza  Triangle  Using  Level  1  Decomposition  in  Time 


101 


p 


^  ^  -4  *’’1  ' 


P 

V  T 


p 

®v® 

\  V 
^  v' 

V  7 

P\/P 

#1 

V  T 

r  T 

r  7 

Cr  V  ^ 

\ 

«'V'» 

- 1 

> 

A 

r  7 

T-  1 

r  7 

«►  V  ^ 

i.  J 

V 

4.  ^ 

_ 1 

Figure  66.  Frames  of  Kanisza  Triangle  Using  Level  2  Dccom position  in  Time 


102 


's — 7 

7 

/ 

^  V  ^ 

Cl'  w  w 

II 

V  n 

T  7 

T"  "7 

C  J 

w  V  ^ 

^  V  ^ 

T-  “7 

T"  7 

r  ■?  1 

i.  j 

V 

V' 

i 

Figure  67.  Frames  of  Kani.sza  Triangle  Using  Level  3  Decomposition  in  Tim^ 


103 


101 


information  is  only  necessary  in  specific  locations  of  contributory  energy  around  the  iilu''<>»y 
contours.  In  much  the  same  way  that  low  temporal-frequency  information  is  required  to  give 
the  general  perception  of  motion,  high  temporal-frequency  information  is  required  to  sharpen 
that  perception.  Furthermore,  there  may  be  a  fundamental  trade-off  between  resolution  in 
time  and  resolution  in  space  l!iat  determines  the  space/time  bandwidth  product  envelope 
within  which  the  illusion  is  perceived  [34]. 
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VIIL  A  Boundary  Contour  Model 


To  investigate  the  importance  of  high  spatial-frequency  processing  to  the  perception 
of  illusory  contours,  we  developed  a  boundary  contour  n.odel.  This  model  is  a  simplified 
version  of  the  first  stage  of  the  Grossberg’s  Boundary  Contour  System  (BCS)  [18,  16,  17]. 
The  model  described  here  is  designed  only  to  demonstrate  the  contribution  of  the  multi¬ 
orientation,  high  spatial-frequency  output  from  the  Multiresolution  Wavelet  Decomposition 
to  the  perception  of  illusory  contours. 

8.1  Methodology 

The  Boundary  Contour  Model  (BCM)  uses  as  input  the  detail  wavelet  coefficients 
provided  by  the  waveS  program  which  performs  a  Multiresolution  Wavelet  Decomposition 
(see  Chapter  IV).  The  BCM  as  illustrated  in  Figure  69  performs  a  one  dimensional  lateral 
excitation  on  either  the  rows  or  columns  of  these  coefficients.  The  purpose  of  this  network  is 


Figure  69.  Data  F'low  of  the  Boundary  Contour  Model 
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to  spread  the  energy  along  the  dimension  of  excit.-’tion.  The  wavelet  coefficients  provided  by 
the  Mallat  Multiresolution  Wavelet  Decomposition  isolate  the  energy  content  of  each  spatial- 
frequency  band  or  level  of  resolution  in  one  of  three  spatial  orientations:  horizontal,  vertical, 
and  angular.  We  perform  lateral  excitation  along  the  horizontal  direction  to  spread  the 
horizontal  wavelet  coefficients  in  the  horizontal  din  ension  of  the  two  dimensional  coefficient 
array.  Likewise,  the  energy  of  the  vertical  wavelet  coefficients  are  spread  vertically  and  the 
energy  of  the  angular  coefficients  are  spread  in  both  dimensions,  vertically  and  horizontally. 
The  lateral  excitation  process  is  performed  in  such  a  way  as  to  maintain  the  total  energy  of 
each  set  of  wavelet  coefficients  at  a  given  orientation  and  level  of  resolution.  This  is  necessary 
to  ensure  accurate  reconstruction  in  the  final  step.  Equation  72  gives  the  one  dimensional 
lateral  excitation  algorithm  performed  by  the  lenrow  and  the  kncol  programs  which  operate 
on  rows  and  columns  respectively. 

.z/i  =  (  I:  2V.+,  +  f;  -  (  E  2”  +  f;  2-’') J(  (72) 

P=-P  P=I  P=-P  P=1 

for  i,  p  €  Z,  where  tu,  is  the  output  value  of  the  input  coefficient,  J,,  after  lateral  excitation, 
and  P  is  the  maximum  extent  of  the  excitation  window  in  both  the  positive  and  negative 
directions  from  J,.  The  first  term  enclosed  in  parentheses  is  the  surrounding  receptive  field 


Figure  70.  Lateral  Excitation  Network  of  Equation  72 


of  the  cell.  The  second  term  is  the  center  of  the  receptive  field  and  ronstitutes  the 
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amount  of  the  input  cell,  J„  that  subtracts  from  the  output  cell.  tr,.  Software  source 
code  for  these  programs  is  listed  in  Appendix  E.2.  The  third  and  final  step  in  the  BCM 
is  to  reconstruct  the  image  with  the  wavcS  program  using  the  affected  wavelet  coefficients. 
This  was  done  bj'  simply  substituting  the  output  of  the  lateral  excitation  networks  for  the 
detomposed  wavelet  coefficients  before  selecting  the  reconsl  uction  option  from  the  main 
menu  of  the  wave2  program. 

8.8  ConclusioJis 

Figure  71  shows  the  resulting  reconstruction  of  the  Kanisza  Triangle  in  which  only  the 
fourth  level  detail  wavelet  coefficients  are  affected  by  lateral  excitation.  Figure  7-3  suows  the 
same  figure  in  which  all  levels  of  detail  wavelet  coefficients  are  affected  by  lateral  excitation 
from  level  one  through  level  four.  These  results  are  satisfying  and  surprising.  They  are 
satisfying  because  the  energj'  tends  to  spread  in  such  a  way  as  to  aid  the  outline  of  the 
illusorj"  triangle  and  the\'  are  surprising  because  the  appearance  of  the  energ\‘  spread  so 
closely  resembles  Oberndorf’s  results  (sec  Figure  72). 

The  goal  of  this  analysis  is  to  test  the  hypothesis  that  specific  spatial-frequency  chan¬ 
nels,  within  a  specific  orientation,  may  contain  spatial  receptive  fields  that  together  determine 
the  response  of  a  single  spatial  clement  centered  in  that  field.  The  result  of  such  a  response 
network  would  be  a  new  set  of  orientation  specific,  spatial -frequency  specific  response  .'*c- 
ments  whose  energy-  is  determined  by  the  weighted  sum  of  their  respective  receptive  field.  If 
this  is  true,  it  wouhl  go  a  long  way  in  explaining  the  perception  of  illu.sor\  contours  which  iic 
between  or  in  line  with  two  or  more  regions  of  like  orientation.  Consider,  for  c.xanrple,  the 
base  of  the  illusory  Kanisza  Triangle  (see  Figure  -73).  'Phis  contour  is  <iriented  horizontafly 
and  lies  in  line  with  the  horizontcil  edges  of  the  contriiuiting  objccis.  It  may  be  that  the 
perception  forming  arc.aof  the  brain  receives  .signals  in  the  location  ami  orientation  of  this 
contour  stimulated  b\  the  high  spatial  frcquenc\  energ\  of  the  <Hlges  wlK>.se  <irictjlation  is 
horizontal. 


Figure  71.  Output  of  Boundary  Contour  Model  Using  Only  Level  4  Detail  Coefficients 
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Figure  72.  Oberndorf’s  Results  Using  a  Gabor  Low  Pass  Filter  [32] 


Biological  experiments  performed  on  the  visual  cortex  of  the  cat  and  monkey  revealed 
at  least  two  distinct  catagories  of  cells,  simple  cells  and  complex  cells  [23,  22].  In  these  exper¬ 
iments,  microelectrodes  measured  the  impulse  response  of  the  respective  cells.  Simple  cells 
were  found  to  respond  only  to  visual  stimulus  within  a  specific  spatial-frequency  band  and 
orientation  and  complex  cells  were  found  to  be  orientation  independent  suggesting  that  each 
complex  cell  has  a  receptive  field  of  simple  cells  that  themselves  respond  to  a  specified  band 
of  spatial-frequencies  and  orientations.  One  explanation  is  that  an  intermediate  layer  exists 
between  these  simple  and  complex  cells.  One  that  responds  to  specific  spatial-frequencies 
and  orientations  in  the  desired  locations.  Another  explanation  is  that  the  perception  form¬ 
ing  areas  of  the  brain  or,  some  intermediate  stage  which  may  re'^ide  in  another  location  in 
the  cortex  receives  as  input  a  receptive  field  of  simple  cells.  Since  so  little  is  known  of  the 
interconnections  of  the  brain,  it  is  not  unreaiJonable  to  make  these  hypotheses. 

The  wavelet  detail  coefficients  provide  the  required  spatial-frequency  and  orientation 
selectivity  to  simulate  simple  cell  response.  Considering  the  type  of  network  connections 
known  to  be  possible  in  the  cortex,  we  apply  a  lateral  excitation  network  to  these  coefficients 
and  reconstruct  the  original  image  using  the  excited  values.  The  results  shown  in  Figure 
71  strongly  suggest  illusory  perception  is  aided  by  such  a  network.  Taking  the  excitation 
process  to  all  band<^  simultaneously  as  shown  in  Figure  73  only  degrades  the  suggestion  of 
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the  contours  through  the  distortion  of  the  high  spatial-frequency  characteristics  needed  to 
terminate  the  contours.  In  our  results,  only  the  excitation  of  the  lowest  frequency  band, 
shown  in  Figure  71,  maintains  the  edges  of  the  contributory  objects  distinctly.  To  obtain 
this  result,  the  level  four  detail  coefficients  were  excited  and  used  in  the  reconstruction. 
This  level  corresponds  to  a  spati<  1-bandwidth  of  16  to  32  cycles  per  object  (see  Figure  54). 
This  spatial-bandwidth  corresponds  to  highest  frequencies  passed  by  both  Gisburg’s  [14]  and 
Oberndorf’s  [32]  low  pciss  filters. 

The  Boundary  Contour  Model  described  in  this  chapter,  while  extremely  simple,  is 
much  like  the  first  stage  of  the  Grossberg  Boundary  Contour  System  (BCS),  “Competi¬ 
tion  I,  On-Center-Off-Surround  Interaction  within  Each  Orientation”  [18:169].  In  the  BCS, 
Grossberg  includes  two  more  major  stages  and  some  refinements.  The  second  stage  is  “Com¬ 
petition  II,  Push-Pull  Opponent  Processes  Between  Orientation  at  Each  Position”  and  the 
third  stage  is  “Oriented  Cooperation:  Statistical  Gates”  [18:169-170].  While  the  BCM  pro¬ 
posed  here  is  not  iterative  nor  does  it  incorporate  a  feedback  loop  as  does  the  BCS,  it  does 
demonstrate  the  edge  enhancing  potential  of  performing  lateral  excitation  within  a  local 
receptive  field  in  a  specific  spatial-frequency  and  orientation  bandwidth.  Furthermore,  this 
work  is  the  first  of  its  kind  to  display  the  output  of  a  contour  enhancing  model  that  still  pro¬ 
vides  the  complete  range  of  spatial-frequencies  in  an  algorithmically  sound  manner.  Wavelet 
Multiresolution  Reconstruction.  As  a  matter  of  fact,  the  wavelet  coefficients  may  prove  to  be 
a  good  input  souce  for  the  BCS  taking  the  place  of  Grossberg’s  oval  dipole  receptive  fields. 


112 


IX.  Conclusions /Recommendations 


9.1  Introduction 

By  investigating  possible  human  perceptual  processing  of  the  Kanisza  Triangle  illusion, 
this  thesis  provides  some  insight  into  the  workings  of  the  human  visual  system.  Ginsburg 
investigated  low  spatial-frequency  biasing  in  visual  perception  formulation.  Oberndorf  went 
a  step  farther  with  his  application  of  the  location  sensitivity  inherent  in  Gabor  filtering.  His 
results  support  Ginsburg’s  thesis  that  low  spatial-frequency  information  is  important  in  the 
perception  of  illusory  contours.  In  this  thesis,  we  further  explore  frequency  contributions  to 
percepts  by  considering  high  spatial-frequencies  as  well  as  low  spatial-frequencies  and  then 
incorporating  temporal-frequencies.  Due  to  a  characteristic  of  the  Wavelet  Transform  to 
effectively  trade  resolution  in  time  or  space  for  resolution  in  temporal-frequency  or  spatial- 
frequency  respectively,  we  use  a  Multiresolution  Wavelet  Decomposition  in  the  place  of  Gabor 
filtering.  The  results  of  this  decomposition  are  approximations  and  detail  coefficients  that 
represent  the  spatial  and  temporal  bands  of  frequency  information  which  provide  input  into 
our  biologically  motivated  models  of  visual  system  processing. 

9.2  Preliminary  Results 

Before  implementing  our  three  visual  system  models,  we  stop  to  compare  our  low 
spatial-frequency  representation  of  the  image  output  from  the  Multiresolution  Wavelet  De¬ 
composition  as  a  coarse  approximation  of  the  original  image  with  the  results  of  Ginsburg  and 
Oberndorf.  This  comparison  leads  to  the  conclusion  that  Oberndorf’s  Gabor  Lowpass  filter 
possesses  characteristics  not  found  in  the  filtering  process  of  the  Multiresolution  Wavelet 
Decomposition.  The  primary  difference  between  the  Fourier  and  Gabor  filtering  and  the 
decomposition  filtering  is  the  ringing  associated  with  the  sharp  cutoff  of  the  Ideal  Fourier 
and  Gabor  filters.  This  ringing  seems  to  be  the  cause  of  the  energy  spread  observed  in  their 
results.  If  the  ringing  indeed  aids  the  percept,  it  suggests  the  spatial  filtering  proce.ss  of  the 
brain  is  also  characterized  by  r'.iging.  On  the  other  hand,  it  may  be  that  some  cerebral 
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processing  in  addition  to  spatial  filtering  is  requited  to  cause  illusory  percepts.  It  is  likt’y 
that  the  results  of  spatial-frequency  processing  is  fused  vith  some  other  cerebral  process¬ 
ing  (e.g.  temporal- frequency  processing).  After  all,  there  is  much  unknown  in  the  current 
understanding  of  the  processing  that  takes  place  in  the  cerebral  complex. 

9.3  Building  a  World  Model 

We  use  the  multiresolution  approximations  as  input  to  a  model  of  the  visual  system 
based  on  the  known  operation  of  saccadic  eye  movements  and  retinal  processing.  The  obser¬ 
vation  that  led  to  this  approach  is  that  the  illusion  seems  to  break  up  when  the  viewer  forces 
fixation  at  one  point  in  the  image;  thus,  eliminating  the  saccadic  movements  of  the  eye.  Since 
retinal  fixation  between  saccades  is  necessary  for  the  retina  to  process  high  spatial-frequency 
information  from  the  field  of  vision,  this  observation  suggests  that  high  spatial-frequency 
information  is  somehow  critical  in  the  perception  of  the  illusory  contours.  Compared  to  the 
previous  results  of  Figure  55,  the  low  spatial-frequency  spreading  in  Figure  60  is  found  now 
only  in  the  areas  not  replaced  by  high  resolution  information.  While  this  does  not  discount 
the  importance  of  the  “ringing”  in  the  Ginsburg  and  Oberndorf  results,  it  does  emphasize 
the  necessity  of  incorporating  the  high  spatial-frequency  bands  in  the  analysis  of  the  illusion. 
This  frame-built  model  illustrates  how  the  quality  of  the  illusion  is  enhanced  by  adding  high 
spatial-frequency  information  in  selected  locations  along  the  suggestive  contours. 

Two  areas  of  investigation  naturally  follow  from  the  above  observations:  1.  Whether 
manipulation  of  high  spatial-frequency  information  helps  to  enhance  or  diminish  the  illusion, 
and  2.  Whether  the  temporal-frequency  information  across  the  frames  of  the  world  model 
contributes  to  or  is  necessary  to  produce  the  illusion.  Therefore,  we  developed  a  spatial- 
temporal  model  and  a  boundary  contour  model. 

9.4  A  Spatial-Temporal  Model 

Considering  the  temporal-frequency  information  across  a  series  of  frames  in  an  ani¬ 
mated  scene,  we  perform  a  Multiresolution  Wavelet  Decomposition  in  the  time  dimension 
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and  then  use  the  coarse  approximations  of  the  time  signals  of  each  pixel  in  the  set  of  frames 
to  rebuild  a  version  of  the  frames  that  is  “blurred  in  time”.  The  brain  may  process  temporal- 
frequency  information  in  such  a  way  as  to  suppress  high  temporal-frequencies  smoothing  the 
motion  giving  the  eye  more  time  to  fixate  enough  locations  around  the  scene  to  produce  the 
illusion.  This  suggests  that  the  Gin.  burg  proposal  of  low  spatial-frequency  biasing  applies 
to  temporal-frequency  as  well.  The  question  is  how  fast  can  the  motion  be  before  there  is 
not  enough  time  to  process  high  spatial-frequencies.  Obviously,  the  slower  the  motion  the 
more  spatial  processing  can  take  place.  If  relatively  more  spatial  processing  is  necessary  to 
produce  the  illusion,  more  high  temporal-frequencies  must  be  filtered  out.  Therefore,  each 
illusion  depending  on  its  relative  spatial  complexity  has  a  fundamental  space-time  bandwidth 
envelope  in  which  it  is  perceived. 

9.5  A  Boundary  Contour  Model 

The  Boundary  Contour  Model  takes  a  closer  look  at  the  possible  contributions  of  the 
spatial-frequency  components  of  a  scene  to  the  perception  of  illusory  contours.  It  demon¬ 
strates  the  potential  of  using  the  wavelet  detail  coefficients  as  input  to  the  Grossberg  Bound¬ 
ary  Contour  System  (BCS).  It  simualates  a  non-iterative  version  of  the  first  stage  of  the  BCS, 
Off-Center-Off-Surround  network  within  each  orientation.  The  results  show  the  same  kind 
of  energy  spread  found  in  Oberndorf’s  results  but  for  a  totally  different  reason.  In  Figure  71 
the  energy  spread  is  caused  by  a  lateral  excitation  network  in  which  the  receptive  fields  lies 
within  specified  localities,  spatial-frequency  bandwidth,  and  orientations;  whereas,  Obern¬ 
dorf’s  energy  spread  is  caused  by  the  ringing  characteristic  of  a  highly  tuned  low-pass  filter. 
The  ocurrence  of  lateral  excitation  networks  in  the  central  nervous  system  is  well  known. 
Therefore,  it  presents  a  more  plausible  explanation  of  energy  spreading  than  does  ringing 
which  is  not  easily  characterized.  But,  the  most  gratifying  aspect  of  the  result  of  Figure 
71  is  that  it  provides  all  spatial-frequency  components  found  in  the  original  image  in  effect 
fusing  the  suggestive  contour  data  on  top  of  a  distinctly  recognizable  figure. 


9. 6  Recommendations 


This  thesis  lays  the  ground  work  for  a  whole  new  realm  of  study  -  that  of  spatial/temporal- 
frequency  processing  in  the  human  cer'=‘bral  complex.  The  next  logical  step  in  this  area  would 
be  to  implement  Grossberg’s  Boundary  Contour  Syt)-em  with  the  detail  coefficients  output 
from  the  Multiresolution  Wavelet  Decomposition  [18].  Such  a  composite  boundary  find¬ 
ing  system  could  be  implemented  in  a  highly  parallel  architecture.  Its  output  would  be 
extremely  useful  in  object  segmentation  applications  in  which  incomplete  boundaries  are 
segmented  from  background  textures.  The  Wavelet  based  BCS  would  “connect  the  dots” 
and  give  distinct  form  to  objects  of  interest  [41]. 

In  this  thesis,  the  temporal-frequencies  are  processed  in  much  the  same  way  eis  the 
spatial-frequency  processing  of  earlier  work  [14, 32].  This  new  comparison  of  the  time  domain 
to  the  space  domain  suggests  that  there  exist  contours  across  space  and  time.  It  may  be 
possible  using  the  BCS  to  isolate  and  characterize  such  contours.  This  thesis  provides  the 
tools  to  do  just  that. 

The  whole  field  of  spatial-temporal  image  processing  is  basically  untouched  for  ap¬ 
plications  in  pattern  recognition,  texture  segmentation,  and  feature  extraction.  The  spa¬ 
tial/temporal  models  proposed  here  are  applicable  and  will  provide  a  method  of  improving 
feature  sets  used  in  these  application  areas  by  bluring  in  space  and  time. 
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Appendix  A.  Multiresolution  Analysis  Using  Projections 

A.l  System  Description  of  the  WAVE  Program 

The  folloving  is  a  list  of  functions  which  comprise  the  wave  program: 

1.  main. wave. c  -  The  main  driver  program  for  wave. 

2.  loadiraage.c  -  A  routine  to  load  the  include  image  from  an  eiscii  data  file. 

3.  phi_gen_haar.c  -  A  routine  that  builds  a  new  $  for  each  level  of  the  decomposition. 

4.  inner_prod.c  -  A  routine  to  perform  the  inner  product  and  obtains  the  $  coefficients. 
It  generates  one  file  for  each  level  of  decomposition  with  the  suffix  .phicoef .. 

5.  v_projection.c  -  A  routine  that  finds  the  projection  of  the  include  image  on  the  space 
V„i  where  m  is  the  current  level  of  decomposition.  It  generates  one  file  for  each  level 
of  decomposition  with  the  suffix  .v_project.. 

6.  w_projection.c  -  A  routine  that  finds  the  projection  of  the  include  image  onto  the 
space  orthogonal  to  the  Kn  space  where  m  is  the  current  level  of  decompostion. 
It  generates  one  file  for  each  le  'el  of  decomposition  with  the  suffix  .w_project.. 

7.  makefile  -  A  makefile  that  is  used  to  compile  and  link  the  source  code  to  make  an 
executable  file. 

8.  jsmacros.h-  An  include  file  that  contains  macros  we  found  useful  in  our  programming 
environment.  This  file  must  be  present  in  the  directory  where  compilation  takes  jdace 
(See  .Appendix  F.l  for  listing). 

9.  macros  .h  -  An  include  file  that  we  borrowed  from  G.  Tarr.  It  contains  addil ion  macros 
used  throughout  our  code.  It  also  must  be  present  in  the  directory  where  the  compi¬ 
lation  takes  place  (See  .Appendix  F.l  for  listing). 

10.  stewmath.h  -  An  include  file  containing  some  math  routines  .specific  to  oui  program. 
It  must  be  pre.sent  in  the  directory  where  complilation  take.s  place  (See  .Appendix  F.2 
for  listing). 
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Typing  “make”  at  the  command  prompt  in  any  directoi\  with  all  of  the  above  files  present 
will  create  the  appropriate  object  code  and  an  executable  file  called  wave  that  may  be  exe¬ 
cuted  by  typing  “wave”  at  the  command  prompt. 


A. 2  Haar  Wavelet  Analysis  Software 
A. 2.1  Listing  of  MA IN-  WA  VE. C 

/***  WAVELET  ANALYZER  MAIN  PROGRAM  DRIVER  **/ 

/^C  :|c4c4c%  4c  ]|c4c^4c  3|c4c4c4c  4c  %  4c3fc«*  *  3|c  4c*  1(4c4c  ](c  4c  4e^4c  ♦  :4c:^4c^;tc  ^  4c4c4c/ 

/*4c:<^4c**  *4C  4c  4c  4c4c  4c  *  4c4c4c  4c  *4c  4c*4c  4c  *4c4c  4c4c4c  4c4c4c4c*  4c4c  4c4c  4c  4c  4c  4c  4c  4c  *  *  4c  4c  4c*4c  4c  4c  4c4c  4c  *  4c4c4c4c  *  4c**4c4c4c4c4c4c4c*#/ 

/t  DATE:  09  April  91  */ 

/♦  ♦/ 

/4c  VERSION:  1.0  ♦/ 

/♦  ♦/ 

/4c  NAME:  main-wave,  c  */ 

/♦  ♦/ 

/♦  DESCRIPTION:  This  program  performs  a  multiresolution  wavelet  analysis  4c/ 
/♦  of  an  input  image  with  a  wavelet  from  its  internal  library  chosen 
/*  interactively  by  the  user.  It  handles  the  menu  interface  with  the  ♦/ 

/♦  user  and  drives  the  subroutines  that  take  inputs,  analyzes,  and  */ 

/♦  produces  output.  Currently  only  the  Haar  Wavelet  is  available  for  this  ♦/ 

/*  program.  */ 

/♦  ♦/ 

FILES  READ:  NONE  ♦/ 

/-^  ♦/ 

/♦  FILES  WRITTEN:  NONE  ♦/ 

>  ♦/ 

/♦  HEADERS  USED:  <stdio.h>,  ''macros .h** ,  "jsmacros.h**  ♦/ 

/♦  ♦/ 

/♦  CALLING  PROGRAMS:  NONE  ♦/ 

/*  4C/ 

/♦  PROGRAMS  CALLED:  imageload. c,  innerprod.c,  phi_gen_haar . c ,  ♦/ 

/♦  phi_g*'in„i'‘l .  c ,  vpro j  .  c ,  wprc j  .  c  ♦/ 

/♦  ♦/ 

/♦  AUTHOR:  Steve  Smiley  cud  J.  Stewart  Laing  ♦/ 

/♦  ♦/ 

/♦  HISTORY:  Initial  Version;  adapted  from  phivl.c  and  haarvl.c  ♦/ 

^♦♦***************************  ***********»***************^**************»*t/ 

/*4c4c4c4c*4c*«##«4c*4c*>^4c44c*4c4**4c4c4c***4c***4c******4c4V***4c4c4c*4c*4c**4c4c4c4t*4*4c«4*4*4c4c*««/ 

/4c4c4c***4c*4c**4c*4c«4*****4*4c*/ 

/♦  DECLARATION  SECTION  ♦/ 

/*4e****4.*4c******4c**4***4c4c4c/ 

#include  <stdio.h> 

#include  **macros.h” 

#include  **jsmacros  .h" 

#include  **stewraath.h" 

int^array  loadimageO ; 

float.array  phi^gen.haarO ; 

int^array  inner_prod() ; 

int.array  v^projectionO ; 

int. array  w_projection() ; 

/**4(*********4**4**4%c**4/ 
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/♦  MAIN  PROGRAM  BODY  */ 

void  main(argc,  argv) 
int  Eorgc; 
char  ♦argv  [] ; 

{ 

/  4c  4c  ^  ^  4c  4c  4c  ^  4c  4c  *  %  4c  3|c  3(c  :tc  4c  ]|c :(( / 

/♦  initialize  variables  ♦/ 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

int  i,  wavelet^type,  level,  maxlevel; 

int^array  image,  phi^coef,  v_image,  lastv^image,  w.image; 

float.array  phi; 

char  filename [64] ,  load; 

/4c  4c  4c  4c  4c  4e  4c  4c  4c  4e  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

/♦  load  image  to  be  analyzed  ♦/ 

/4c  4c  4c  ♦  4c  4c  4c  ♦♦  3^  4c  4c  4c  4c  4c  4c4c  4c  *  4c  ♦4c  4c  4c  4c  4c  4c  4c  4c  3^  ♦  4c  4c  4c  4c  4c4c  / 

ifCargc  !=  4  Al:  argc  !=  l){ 

printf ("Usage:  wave  <filename>  <#  of  Rows>  <#  of  Cols>\n"); 
exit(O) ; 

} 

image  =  loadimage(filename,  argc,  argv); 
maxlevel  =  L0G2 (image. ROW) ; 


/:^4c  ♦  4c  4c  ♦♦  ♦4c  ♦  4c  4c4c^  ♦  4C«  ♦4c  ♦  4c  4c  ♦4c  4c4c4c4c«  ♦  4c4c4c4c  ♦  4c/ 

/♦  This  section  performs  the  wavelet^/ 

/♦  analysis  on  the  image  according  ♦/ 

/♦  to  the  value  of  wavelet^type .  */ 

loopi (maxlevel) { 

/♦  generate  phi  for  haar  ♦/ 

phi  =  phi_gen_haar(i) ; 

printf("\n  Level  7.d  phi  generated. \n" ,  i) ; 

/♦  perform  inner  product  to  get  phi  coeficients  ♦/ 


phi^coef  =  inner_prod( image,  phi,  i,  filename); 

printf(**\n  I  have  created  and  strored  the  Level  5Cd", 
printf("  inner^product  coeficients.Xn"); 


i); 


lastv^image  =  v.image; 

v^image  =  v_projection( image,  phi,  phi^coef,  i,  filename); 
printf("\n  I  have  created  and  stored  the  Level  %d**,  i); 
printf("  V  projection. \n",  level); 


/♦  generate  W  space  projections  ♦/ 


if  (i  ==  1)  w^image  =  w^projectiondmage,  v^image,  i,  filename); 
if  (i  >  1)  w^image  =  w_projection(lastv„iraage,  v_imag€,  i, 
filename) ; 

> 

/♦  THE  END  */ 

} 
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A. 2.2  Listing  of  LO.ADIMAGE.C 


/**^*’¥1f*^H^^^^^*^^*1Hi^^^1^i|^*^^^^^i^t■***^l^**■^^**^H^***^^^^i^:***i^****iH^*^H^****^^*i^***iH^*^*t■***/ 


/***  WAVELET  ANALYZER  LOADIMAGE  ROUTINE  ♦♦/ 

/♦  DATE:  10  April  91  ♦/ 

/♦  ♦/ 

/♦  VERSION:  1.0  ♦/ 

/♦  */ 

/*  NAME:  loadimage .  c  ♦/ 

A  ♦/ 

/*  DESCRIPTION:  This  routine  loads  an  image  into  an  array  vhose  name  is  ♦/ 

/♦  specified  by  the  user  interactively.  It  is  intended  to  be  used  as  a  ♦/ 

/*  subroutine  for  the  WAVELET  ANALYZER  PROGRAM.  */ 

/♦  ♦/ 

/*  FILES  READ:  One  file  specified  by  the  user.  */ 

/*  */ 

/♦  FILES  WRITTEN:  NONE  ♦/ 

A  */ 

/♦  HEADERS  USED:  <stdio.h>,  “macros. h",  <stdlib.h>,  "jlmacros.h"  ♦/ 

/♦  */ 

/*  CALLING  PROGRAMS:  main-wave. c  */ 

/♦  */ 

/*  PROGRAMS  CALLED:  NONE  */ 

/♦  ♦/ 

/*  AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing  ♦/ 

/*  */ 

/♦  HISTORY:  Initial  Version  ♦/ 

_ 


/♦  DECLARATION  SECTION  ♦/ 

#include  <stdlib . h> 

#include  <stdio . h> 

#include  "macros .h” 

#include  " j  smacros . h" 

/♦  FUNCTION  BODY  ♦/ 

int^array  loadimage (infilename,  argc,  argv) 
char  ♦ inf ilename [64] ; 

int  argc ; 
char  ♦argvQ; 

/♦  initialize  variables  ♦/ 

/#*  *  :^4c «  4c:^4c 


int  i,j; 

FILE  ♦infile; 

int_array  image; 


/♦  create  array  to  hold  the  incoming  image  ♦/ 
if  (argc  ==  iH 

printf ("\n\n\n  Input  the  size  of  the  image  (ROW  COLUMN) :>"); 
scanf('')ld  Xd",  ftimage.ROW,  Aimage.COL); 

printf (“  \n\n  Input  filename  of  image  to  be  analyzed :>") ; 
scanf ("Zs" ,  infilename) ; 
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else  { 

sprintf (inf ilenarae,  **5(s**,  argv[l]); 
sscanf  (argv[2]  ,  **%d'*,  &image.ROW); 
sscanf (argv [3]  ,  "Xd" ,  ftimage . COL) ; 

} 

CREATE_MATRIX_ROW ( image . array ,  image . ROW ,  int ) ; 

CREATE_MATRIX_COL( image. array,  image. ROW,  image. COL,  int); 

/♦  load  image  to  be  analyzed  *1 

OPEH.FILE  (infile,  infilename,  *'1116  wavelet  analyzer**); 
loopi j ( image . ROW ,  image . COL) { 

f  scanf  (inf  ile ,  **Zd** ,  ftimage . array  [i]  Cj]  ) ; 

} 

printf(**\n  ♦*  The  image  J(s  has  been  loaded  for  processing.  ♦♦\n\n\n‘*, 
infilename) ; 
return  image; 

} 

A.2.2  Listing  oi PHLGENAi A AR.C 

/♦♦♦  WAVELET  ANALYZER  ROUTINE  TO  GENERATE  THE  PHI  FOR  HAAR  ♦♦/ 

/♦  DATE:  11  April  91  ♦/ 

/*  */ 

A  VERSIOH:  1.0  */ 

A  ♦/ 

A  NAME:  phi_gen_haar . c  ♦/ 

/*  */ 

/*  DESCRIPTION:  This  routine  generates  the  phi  function  for  a  particular  ♦/ 

/*  level  of  resolution.  It  is  represented  as  an  array  whose  size  depends  */ 

/*  on  the  level  requested  by  the  calling  function.  ♦/ 

A  ♦/ 

/*  FILES  READ:  NONE  */ 

A  */ 

/♦  FILES  WRITTEN:  NONE  */ 

A  ♦/ 

A  HEADERS  USED:  <stdio.h>,  ''macros. h” ,  <stdlib.h>,  "jlmacros.h"  */ 

A  */ 

A  CALLING  PROGRAMS:  main-wave. c  */ 

A  '/ 

/*  PROGRAMS  CALLED:  NONE  */ 

/*  1 

A  AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing  ♦/ 

A  ♦/ 

/*  HISTORY:  Initial  Version  ♦/ 

A  ♦/ 

/♦  DECLARATION  SECTION  ♦/ 

/**i»r«:^«:^«**«4(*«**4c*«***4c«*/ 

#includc  <stdlib . h> 

#include  <stdio . h> 

#include  "macros . h" 

#include  **  j  smacros .  h" 

/♦  FUNCTION  BODY  ♦/ 
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float^array  phi^gen^haardevel) 
int  level; 

{ 

/♦  initialize  variables  ♦/ 


int  i,j»  phisize; 
float.array  phi; 


A  create  array  to  hold  phi  ♦/ 

phisize  =  1; 

for(i=0;  i  <  level;  ++i)  phisize  ♦=  2; 
phi.ROV  ==  phisize; 
phi. COL  =  phisize; 

CREATE.MATRIX_ROW(phi. array,  phi. ROW,  float); 
CREATE_MATRIX_COL(phi. array,  phi.ROV,  phi. COL,  float); 


/♦  build  phi  ♦/ 


loopij(phi.ROV,phi.COL)  phi. array [i] [j]  =  1.0/(float)phisize; 
return  phi; 


A.2,J^  Listing  of  INNER^PROD.C 


/♦♦♦  ROUTIIE  TO  PERFORK  IVIER  PRODUCT  FOR  WAVELET  AIALYZER  ♦♦♦♦♦/ 


/♦♦♦  ROUTIIE  TO  PERFORK  IIIER  PRODUCT  FOR  WAVELET  AIALYZER  ♦♦♦♦♦/ 

/♦  DATE:  11  April  91  ♦/ 
/♦  ♦/ 
A  VERSIOI:  1.0  ♦/ 
A  ♦/ 
A  lAME:  inner _prod.c  ♦/ 

A  ♦/ 
A  DESCRIPTIOI:  This  routine  perfoinss  the  inner  product  between  the  phi  •/ 
/*  and  the  image  at  any  valid  level  as  requested  by  the  caller.  */ 
/♦  It  is  intended  as  a  subroutine  for  the  WAVELET  AIALYZER  PROGRAM.  v/ 
A  ♦/ 
A  FILES  READ:  lOIE.  •/ 
A  ♦/ 
A  FILES  WRITTEI:  A  file  will  be  generated  each  time  the  •/ 
A  routine  is  called.  The  name  of  the  file  will  depend  on  the  input  •/ 
A  image  filename,  the  type  of  wavelet  used,  and  the  level  of  resolution.  •/ 

A  ♦/ 
A  HEADERS  USED:  <stdio.h>,  ”macros.h'*,  <stdlib.h>,  "jlmacros.h",  •/ 
A  <string.h>  •/ 

A  •/ 
A  CALLING  PROGRAMS:  aain-wave.c  •/ 
A  ♦/ 
A  PROGRAMS  CALLED:  lOKE  •/ 
A  ♦/ 
/»  AUTHOR-  Steve  Smiley  and  J.  Stewart  Laing  •/ 

A  •/ 
A  HISTORY:  Initial  Version  •/ 
A  •/ 
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/♦  DECLaRATION  SECTION  ♦/ 

/  ^  4c  3(c  t  4c  3|e  3)e  :(c  %  :4c  1 1 1  *  *  / 


#iiiclude  <stdlib .  li> 

#iiiclude  <stdio .  h> 

#iiiclude  "macros .  h" 

#include  " j  smacros . h" 

#include  <string . h> 


/  3^  4c  4c  4c  4c  4c  4c  4c  4c  ift  34c  4c  4c  4c  4c  1 4c  lit  1 4c  *  ^  / 

/♦  FUNCTION  BODY  */ 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4t  4c  4' 4t  4c  4t  4c  4c  4c  4c  4c  4c  4c/ 


int^array  inner_prod( image,  phi,  level,  filename) 
int.array  image ; 
float .array  phi; 
int  level ; 

cheu:  filename  [64] ; 

{ 

int  i,  j,  phisize; 

int.array  phi.coef; 

FILE  *outfile; 
char  coef f ile [64] ; 
float  product ; 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  3^  ♦  4c  4c  4c  4c  4c  4c  ♦  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/4c  create  a  matrix  to  hold  the  phi  coeficients  4c/ 

/  3^  3^  4c  4c  4c  4c  4t  4c  4c  4c  4e  4c  4c  4e  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

phisize  =  1; 

for(i=0-  i  <  level;  ++i)  phisize  4c=  2; 
phi.cof'  .lOW  =  image. ROW/phisizc; 
phi.coef .COL  =  image. COL/phisize; 

CREATE^MATRIX.ROW(phi.coef .cirray,  phi.coef .ROW,  int); 
CREATE.MATRIX.COL(phi.coef .aoxay,  phi.coef .ROW,  phi.coef .COL,  int); 

/♦printf ("\nphi.coef  matrix  sucessfully  created. \n") ;*/ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/*  perform  inner  product  <image,  phi>  to  get  coeficients  */ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

loopijC image. ROW,  image. COL) { 

product  =  phi. array [iXphisize]  [j*/, phisize]  4c  (float)image.array[i]  [j]  ; 
phi.coef. array [i/phisize] [j/phisize]  +=  (int)product ; 

} 

/  4c  :(c3(c](c3(e  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

/♦  write  the  phi  coeficient  array  out  to  a  file  4c/ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

sprintf (coef file,  "y.s.phicoef .y,d",  filename,  level); 

CREATE.FILE(outfile,  coef file,  "WAVELET  ANALYZER") 

loopi j (phi.coef . ROW , phi.coef . COL) 

fprintf  (outf  ile,  "XdXn",  phi.coef  .eirray  [i]  [j] ) ; 

printf("\n  The  level  Xd  phi.coef icients  have  been  stored  in  a  f ile" , level) ; 
printfC"  called:  y.s\n",  coeffile); 
return  phi.coef; 

> 


A,S.5  Listing  of  V^PROJECTION^C 


/  3(c  3|(  3(c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/  4c  4c  3«(  4c  4c  4c  4(  4c  4c  4(  4c  4(  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  1 4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4e  4c  4c  4c  4c  4c  / 

/4C4C4C  ROUTINE  TO  PERFORM  THE  V.PROJECTION  FOR  WAVELET  ANALYZER  4c4c4c4c4c/ 

/4(4c4c3({4c4c4(4c4(4c4c4c4c4c4c4c4c4c4c4e4:9^4c4c3^4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4(4c4c4(4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4(4c4c4c4c4c4c4c4c4c4c/ 
/  ](c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 
/4C  DATE:  15  April  91  4c/ 
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/♦  */ 

/*  VERSION:  1.0  ♦/ 

/♦  */ 

/♦  NAME:  v_pr eject ion. c  ♦/ 

/*  */ 

/♦  DESCRIPTION:  This  routine  performs  the  inner  product  between  the  phi  */ 

/*  and  phi  coeficient  of  the  image  at  any  valid  level  as  requested  by  */ 

/♦  the  caller.  ♦/ 

/♦  It  is  intended  as  a  subroutine  for  the  WAVELET  ANALYZER  PROGRAM.  ♦/ 

A  ♦/ 

A  FILES  READ:  NONE.  ♦/ 

A  */ 

/♦  FILES  WRITTEN:  A  file  will  be  generated  each  time  the  routine  is  ♦/ 

/♦  routine  is  called.  The  name  of  the  file  will  depend  on  the  input  */ 

/♦  mage  filename,  the  type  of  wavelet  used,  and  the  level  of  resolution.  */ 

A  */ 

A  HEADERS  USED:  <stdio.h>,  “macros. h",  <stdlib.h>,  “jlmacros .h“ ,  */ 

A  <string.h>  */ 

A  */ 

/♦  CALLING  PROGRAMS:  main-wave. c  ♦/ 

A  */ 

/*  PROGRAMS  CALLED:  NONE  ♦/ 

A  ♦/ 

/♦  AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing  */ 

A  */ 

/♦  HISTORY:  Initial  Version  ♦/ 

A  */ 

/%]|C3(()|(:|c]|e%4e4c]|c%]|c4c4c:((:((:|c4c4c}tc3|c:|c*4(]|c4c4(3tct*3t(%>K4c9(c)(e4c%:(ci(.  t:fc:|c4c 4c ♦}(c3(c](c](e :*:)((/ 

/  4c  4c  4c  4c  4(  4c  4c  *  ♦  %  %  4c  4t  4(  4c  *  *  4c  4(  ♦  4c  4c  4c  4c  4c  / 

/♦  DECLARATION  SECTION  ♦/ 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

#include  <stdlib . h> 

#include  <stdio . h> 

#include  “macros . h“ 

#include  “ j  smacros . h“ 

#include  <string . h> 

#include  <math.h> 

/  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4:  / 

h  FUNCTION  BODY  */ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4  4c  4c  / 

int_array  v.project ion (image,  phi,  phi^coef,  level,  filename) 
int^array  image ,  phi^coef ; 
float^array  phi; 

char  filename [64] ; 

{ 

int .array  v.iroage ; 
int  i,  j,  phisize; 

FILE  toutfile; 
char  vprojf iie[64] ; 

v.image.ROW  =  image. ROW; 
v.image.COL  =  image. COL; 

CREATE.MATRIX_ROW( V. image. array ,  v.iraage.ROW,  int); 

CREATE.MATRIX_COL( v.image. array ,  v.image.ROW,  v.image.COL,  int); 

phisize  =  (int)pow(2.0,  (double) level) ; 
printf(“The  phisize  is  y*d\n“,  phisize); 
sprintf (vprojf ile,  "7,s . v.project .yd" ,  filename,  level); 

CREATE_FILE(outfile,  vprojf  ile,  “WAVELET  ANALYZER*') 

loopi j ( v.image . ROW , v.image . C0L){ 

v.image . array  [i]  [j]  =  (int)  ((phi. array [iXphisize]  [jy#phisize])4c 
((float)phi.coef .array [i/phis ize] [j/phisize] )) ; 
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fprintf  (outf ile,'*y*d\n'*,  image. cirr ay [i]  [j]); 

} 

/ *  4c  %  t  ♦  4c  %  ♦  ♦  ♦  3|c  ♦  4c  *  4c  *  *  ♦  *  *  t  ♦  ♦  ♦  4c  *  *  4c  %  3|C  3(c  ]|t  ^  :tc  3tc  4c  :(C  :(c  t  / 

/*  write  the  v  projection  array  out  to  a  file  4c/ 

/  4c  4c  4c  4c  4c  4c  4c  4- 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

printf("\n  The  level  y,d  V  projections  have  been  stored  in  a  file'\level) ; 
printf("  called:  y,s\n'*,  vprojfile); 
return  v^image; 


A.S.6  Listing  of  W.PROJECTION.C 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 
/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/4C4C4C  ROUTINE  TO  PERFORM  THE  W^PROJECTION  FOR  WAVELET  ANALYZER  4c4c4c4c4c/ 

/  4t  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 
/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 


/4c  DATE:  15  April  91  4c/ 

/*  */ 

/4C  VERSION:  1.0  4c/ 

/4c  4c/ 

/4c  NAME:  w.proj  action,  c  4c/ 

/4c  4c/ 

/4c  DESCRIPTION:  This  routine  calculates  the  W  space  projections  by  4c/ 

/4c  performing  a  point  for  point  subtraction  with  the  two  adjacent  V  space  4c/ 
/4c  projections.  4c/ 

/4c  4c/ 

/4c  FILES  READ:  NONE.  4c/ 

/4c  4c/ 

/4c  FILES  WRITTEN:  A  file  will  be  generated  each  time  the  routine  is  ♦/ 

/4c  routine  is  called.  The  name  of  the  file  will  depend  on  the  input  */ 

/4c  image  filename,  the  type  of  wavelet  used,  and  the  level  of  resolution.  4c/ 

/4c  4c/ 

/4c  HEADERS  USED:  <stdio.h>,  “macros. h",  <stdlib.h>,  “jlmacros .h'* ,  4c/ 

/4c  <string.h>  */ 

/4c  4c/ 

/4c  CALLING  PROGRAMS:  main-wave. c  4c/ 

/4c  4c/ 

/4C  PROGRAMS  CALLED:  NONE  4c/ 

/4c  4c/ 

/4c  AUTHOR:  Steve  Smiley  and  3.  Stewart  Laing  */ 

/4c  4c/ 

/4C  HISTORY:  Initial  Version  */ 

/*  ♦/ 


/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4^  4c  4c  4c  4c  4c  #  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ♦  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 
/  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4<  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  / 

/  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

/4c  DECLARATION  SECTION  */ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

#include  <stdlib . h> 

#include  <stdio . h> 

#include  “macros,  h*' 

#include  “ j  smacros . h“ 

#include  <string.h> 

#include  <math.h> 

/4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/4c  FUNCTION  BODY  */ 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ♦4c  4c  4c  4c  4c  4c  4c/ 

int^array  w_projection(lastv_image,  v.image,  level,  filename) 
int^array  lastv.image,  v^image; 

int  level; 


char 


filename [64] ; 


int.array  w^image; 
int  i,  j,  phisize; 

FILE  ♦out file; 

char  wprojf ile [64] ; 

w_image,ROW  =  v_ image* ROW; 
image. COL  =  v_ image. COL; 

CREATE_MATRIX_ROW(w_image. array,  image. ROW,  int); 

CREATE_MATRIX_COL(w_image. array,  w.image.ROW,  w^image.COL,  int); 
sprintf (wprojf ile,  "Xs.w^project.Xd",  filename,  level); 

CREATE^FILE(outfile,  wprojf ile,  "WAVELET  ANALYZER") 

loopi j ( w_image . ROW , w^image . COL) { 

w_image.array[i] [j]  =  lastv^iroage. array [i] [j]  -  v^image.array [i] [j] ; 
/♦  w_image. array [i]  [j]  +=  255; 

w_image.array[i] [j]  /=  2;*/ 

/*  write  the  w  projection  array  out  to  a  file  ♦/ 

f printf  (outf  ile , "JCdXn" ,  w^image .  array  [i]  [j]  )  ; 

> 

printf ("\n  The  level  y,d  W  projections  have  been  stored  in  a  file", level) 
printf ("  called:  7#s\n",  wprojfile); 
return  w_ image; 

} 


A.2.1  Listing  of  JSMACROS.H  (See  Appendix  F.l) 
A.2.8  Listing  of  MACROS. H  (See  Appendix  F.l) 
A.2.9  Listing  of  STEWMATH.H  (See  Appendix  F.l) 
A. 2. 10  Listing  of  MAKEFILE 


Makefile  routine  for  the  WAVE  program  by  Laing  and  Smiley. 

OBJS  =  main-wave. o  loadimage.o  phi.gen^haar . o  inner^prod.o  \ 
v^projection.o  w^projection.o 

wave:  $(0BJS) 

Oecho  "linking  ..." 
cc  $(0BJS)  -o  wave  -Im 

main-wave . o :  main-wave . c 
cc  -c  main-wave. c 

loadimage.o:  loadimage.c 
cc  -c  loadimage.c 

phi^gen^haar.o:  phi.gen^haar . c 
cc  -c  phi_gen_haar . c 

inner.prod . o :  inner^prod . c 
cc  -c  inner^prod.c 

v.projection.o:  v_projection.c 
cc  -c  v_projection.c 

w_projection.o:  w_projection. c 
cc  -c  w^projection.c 
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Appendix  B.  Multiresolution  Analysis  Using  Filters 


B.  1  2D  System  Description 

The  following  is  a  list  of  functions  which  comprise  the  xoave2  program. 

1.  main_wave.c  -  The  main  driver  program  for  wave. 

2.  loadimage .  c  -  A  routine  to  load  the  input  image  from  an  ascii  data  file. 

3.  decompose .c  -  A  routine  that  controls  the  decomposition. 

4.  reconstruct .c  -  A  routine  that  controls  the  reconstruction. 

5.  f  ilters  .c-  A  routine  that  provides  the  coefficient  values  of  the  h{n)  and  g{n)  response 
functions. 

6.  convolve. c  -  A  routine  that  controls  the  convolutions  for  decomposition. 

7.  reconvolve .  c  -  A  routine  that  controls  the  convolutions  for  reconstruction. 

8.  spconvlv .  c  -  A  routine  that  performs  the  spatial  convolutions. 

9.  makefile  -  A  makefile  that  is  used  to  compile  and  link  the  source  code  to  make  an 
executable  file. 

10.  jsmacros  .h  -  An  include  file  that  contains  macros  we  found  useful  in  our  programming 
environment.  This  file  must  be  present  in  the  directory  where  compilation  takes  place 
(See  Appendix  F.2  for  listing). 

11.  stewmath.h  -  An  include  file  containing  .some  math  routines  specific  to  our  program. 
It  must  be  present  in  the  directory  where  complilation  takes  place  (See  Appendix  F.2 
for  listing). 

12.  nrutil.c  -  Source  code  that  contains  utility  macros  for  dynamic  memory  allocation 
(See  Appendix  F.2  for  listing). 
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Typing  "make”  at  the  command  prompt  in  any  directory  with  all  of  the  above  files  present 
will  create  the  appropriate  object  code  and  an  executable  file  called  xuaveS  that  may  be 
executed  by  typing  “waveS”  at  the  command  prompt. 

The  intended  input  to  the  program  is  a  2D  image  in  raw  ascii  format  in  which  each 
sample  of  the  image  is  stored  in  a  file,  one  number  per  line.  For  example,  an  image  that  is 
512x512  samples  will  consist  of  262,144  lines  each  with  one  decimal  integer  number  repre¬ 
senting  the  grey  scale  value  of  that  sample.  The  grey  scale  values  range  from  0  to  255.  The 
output  of  the  program  are  ascii  files  representing  the  scale  and  detail  wavelet  coefficients  in 
floating  point  format.  For  an  in  depth  explanation  of  the  these  coefficients  and  the  algo¬ 
rithm,  see  the  author’s  theses.  The  algorithm  implemented  in  this  program  is  taken  from  a 
paper  by  Stephan  Mallat.  The  paper  is  referenced  in  the  author’s  theses.  Be  aware  that  we 
found  some  printing  mistakes  in  the  paper  which  are  addressed  in  our  theses.  The  program 
was  developed  on  Sun  sparcstation  2’s.  But,  it  should  compile  on  any  system  with  an  ansi 
standard  C  compiler.  To  compile  the  program,  type  "make”  at  the  command  prompt  with 
the  default  directory  set  to  the  current  directory.  Object  files  will  then  be  created  and  linked 
into  an  executable  file  called  waveS.  Then  to  run  the  program,  type  "xoave^'  at  the  com¬ 
mand  prompt.  A  menu  should  appear  first  with  four  choices.  If  not  done  at  the  command 
line  entry  into  the  program,  a  file  must  be  loaded  from  the  current  directory  before  either 
decomposition  or  reconstruction  can  be  executed.  Once  a  file  is  loaded  the  Decomposition 
can  be  selected.  Then  the  Reconstruction  can  be  selected.  The  Reconstruction  portion  de¬ 
pends  on  files  generated  by  the  Decomposition  portion.  But,  it  is  not  necessary  to  run  the 
Decomposition  during  the  same  session  as  the  Reconstruction  as  long  as  the  Decompostion 
was  run  in  a  prior  session  and  the  files  still  reside  in  the  current  director}'.  An  alternate  wa}' 
to  start  the  program  is  to  type  “xvavcS”  followed  by  the  name  of  the  input  file  and  its  .size. 
The  size  of  the  input  file  must  be  a  power  of  two  and  is  defined  to  be  the  length  along  one 
dimension  of  the  sampled  image.  At  this  time  the  largest  file  used  is  a  512  by  512  sampled 
image.  It  is  possible  to  specify  the  path  to  an  input  file  that  is  not  in  the  current  directory 
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either  relative  to  the  current  directory  or  absolutely  from  the  root.  However,  if  this  is  done, 
the  output  files  will  be  sent  to  that  same  directory.  The  proper  usage  of  wave2  is  as  follows: 

comraaoid  prompt:  wave2  [inf ileneime]  [size] 

The  infilename  and  size  are  option?!  but  if  the  infilename  is  given  its  size  along  one 
dimension  of  the  square  power  of  two  sampled  image  must  be  given  as  well.  Also,  only  one 
file  may  be  input  in  any  one  session. 

This  fact  is  not  obvious  from  the  program  menu,  so  be  aware.  If  you  try  to  select  the 
Load  image  option  from  the  main  menu  after  you  have  already  loaded  a  file,  the  result  has  not 
been  fully  characterized.  In  other  words,  we  haven’t  tried  to  figure  out  what  would  happen. 
This  menu  option  is  provided  as  an  alternative  to  specifying  the  file  on  the  command  line. 

The  filters  available  are  presently  limited  to  some  of  the  Daubechies  wavelets  and  the 
Cubic  Spline  wavelet.  But,  it  is  a  simple  process  to  add  new  filters  to  the  filters. c  program 
in  the  same  fasion  as  those  already  included.  To  generate  the  H  and  G  filters,  see  our  theses 
for  references. 


B.2  2D  Multiresolution  Wavelet  Analysis  Software 
B.  2. 1  Listing  of  MA  IN-  WA  VE.  C 


/♦*♦  WAVELET  ANALYZER  MAIN  PROGRAM  DRIVER  **/ 

/**************  4c  4t  4c*  4c  4c  *4c  4c  4c  4c  4c  4c  4c*  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c*  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  *  4e  4c  4c  4c  4c  4c  4c  4c  4c  *  4c  4c  4c/ 

/****************************«*************^*********4;**********4:**4c********/ 

/♦  DATE:  09  April  91,  18  June  91 
VERSION:  2.0 
NAME:  main-wave. c 

DESCRIPTION:  This  program  performs  a  multiresolution  wavelet  analysis 
of  an  input  image  with  a  wavelet  from  its  internal  library  chosen 
interactively  by  the  user.  It  handles  the  menu  interface  with  the 
user  and  drives  the  subroutines  that  take  input,  analyze,  and  produce 
output.  The  the  wavelet  decomposition  algorithm  is  a  pyramid  algorithm 
proposed  by  Stephan  Mallat  in  A  Theory  for  Multiresolution  Signal 
Decomposition:  The  Wavelet  Representation  published  in  IEEE  Trans, 
on  Pattern  Anal,  and  Machine  Intel.  July  89.  The  algorithm  uses  a  pair 
of  mirror  filters  derived  from  the  scaling  function,  phi(x).  The  user 
may  enter  the  intended  input  image  file  from  the  commaind  line  following 
the  calling  commamd  'wave'  or  the  user  may  wait  to  be  prompted  for 
the  input  file  name  and  size  after  starting  the  program  with  the  same 
command.  In  any  case,  additional  images  may  be  entered  for  processing 
by  selecting  the  appropriate  option  from  the  program’s  main  menu. 

FILES  READ:  NONE  (A  subroutine  reads  the  input  files.) 
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FILES  WRITTEN:  NONE  (Subroutines  write  out  the  saved  data  in  files.) 
HEADERS  USED:  <stdio.h>,  “jsraacros.h" ,  '*stewinath.h*' 

CALLING  PROGRAMS :  NONE 

PROGRAMS  CALLED:  imageload. c,  reconstruct . c ,  decompose. c 
AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing 

HISTORY:  Initial  Version;  adapted  from  phivl.c  and  haarvl.c 

^'ersion  2.0  was  a  rewrite  to  change  the  basic  algorithm  from  the  using 

inner  products  to  using  the  Mallat  algorithm  referenced  above. 

*/ 

/  4c  )|c  4c  *  :(c  ^  ]fc  4t  4c  ♦  ♦  4c  :4c  4c  4c « t  ♦  / 

/♦  DECLARATION  SECTION  */ 

4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ♦  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

#include  <stdio.h> 

#include  “jsmacros.h” 

#include  “stewmath.h*' 

int^array  loadimageO ; 

void  reconstruct 0 ; 

void  decomposeO; 

/  4c  3^  4c  4c  4c  4c  4c  4c  4c  4c 4c  4c  4c  4c  4c  4c  «  4c  ♦  / 

/4c  MAIN  PROGRAM  BODY 

/  3^  4c  4c  4c  4t  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c «  4c  4c  / 

void  mainCargc,  sirgv) 
int  argc ; 
char  4cargv  [] ; 

{ 

/4c  4c  4c4c  4c  4c  4c  4c  4c  4c «  4c  4c  4c  ♦  4c  4c  :^4c  4c/ 

/♦  initialize  variables  ♦/ 

/  4t  4c  4c  4c  4c  3^  3^  4c  4c  4c  4c  4(  4c  4c  ^  4e  #  4c  4c  4c  4c  4c  4c  4c  / 

int  selection; 

int.array  image,  ♦imagepo inter  =  &image; 
char  f ilename [64] ; 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ♦  4c  4c  4c  4c  4c  *  4c  4c  4c  4c  4c  4c «  4c  4c  4c  4c  4c  4c  4c «  4c  4c 4c  / 

/4c  load  image  to  be  analyzed  ♦/ 

/3^4c4c  4c  4c  4c  4c4c4c4c  4c4c4c4c4c  ♦4c  ♦  ♦  ♦«4c4c  ♦4c«  4c  ♦  «  4c  *4c4c  4c«  4c4c/ 

if(argc  !=  3  kk  argc  !=  1){ 

printf ("Usage:  wave  <filenaine>  <#  of  Rows>  <#  of  Cols>\n"); 
exit(O) ; 

} 

if (argc  ==  3){ 

image  =  loadimage (filename,  argc,  argv); 

/♦printf ("returned  from  loadimage");  ff lush(stdout) ;♦/ 

} 

do  { 

/3|[4c3^*4c4c4c^«*4c4c^4c«4c4c««4c«*4c«*4c4c4c4t««4c4c4c4c4c/ 

/4c  display  menu  ♦/ 

/3^  3^4c  3^  ♦4c  4c  4c  4c4c  4c  4c  4c  4c  ♦♦  ♦  ♦♦♦4c  ♦  4c  ♦  ♦4c  4c  ♦  ♦  *4c  4c  4c  4r  4c4c  / 

printf ("\n\n  MAIN  MEKU\n\n"); 

printf ("  1  =  Load  a  new  image  from  disk.Xn"); 

printf ("  2  =  Perform  Wavelet  Decomposition. \n") ; 

printf ("  3  =  Perform  Wavelet  Reconstruction. \n") ; 

printf ("  4  =  Exit  Program. \n\n") ; 

printf ("  Enter  an  integer  (J-4):"); 

scanf("y.d",  ^selection); 
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/*  Quit  program  ♦/ 


if  (selection  ==  4)  break; 
arg:  =  1; 

if  (selection  ==  1)  image  =  loadimage(f ilename,  argc,  argv) ; 
else  if  (selection  ==  2)  decompose (imagepo inter ,  filename); 

else  if  (selection  ==  3)  reconstruct (imagepointer, 
filename) ; 

else  { 

].rintf(**  \n\n  Just  enter  an  integer  from  1  to  4  and"); 
printf ( "press  return .  \n" ) ; 

} 

}  while  (selection  !=  4); 

/*  THE  END  ★/ 

> 

B.2.2  Listing  of  LOADIMAGE.C 


/♦♦*  WAVELET  ANALYZER  LOADIMAGE  ROUTINE  ♦♦/ 

/*  DATE:  10  April  91 
VERSION:  1.1 
NAME :  loadimage . c 

DESCRIPTION:  This  routine  loads  an  image  into  an  array  whose  name  is 
specified  by  the  user  interactively.  It  is  intended  to  be  used  as  a 
subroutine  for  the  vave2  program. 

FILES  READ:  One  file  specified  by  the  user. 

FILES  WRITTEN:  NONE 

HEADERS  USED:  <stdio.h>,  "jsmacros.h" 

CALLING  PROGRAMS :  main-wave . c 

PROGRAMS  CALLED:  NONE 

AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing 

HISTORY:  Version  1.1  was  changed  to  accept  square  matrices 
only. 

*/ 

/♦  DECLARATION  SECTION  ♦/ 

#include  <stdio.h> 

#include  "jsmacros.h” 

int  ♦♦imatrixO ; 

void  free^imatrixO ; 

/i^^Hit*^^**^****************/ 

/♦  FUNCTION  BODY  */ 

/^c  Jfc  4c  4t4c#4t  4c/ 

int.array  loadimage (inf ilename »  argc,  argv) 
char  ♦inf ilename [64] ; 

int  argc ; 

char  *argv[3; 

{ 

/*4c««**««*«*4c4c««4c4c4c^4c«4c«4c/ 

/♦  initialize  variables  */ 
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/  3fc  ]|e  4c  ♦  *  4^  #  4c  ♦  #  #  ♦  3|c  :(c  4c  4c  3)t  / 


int  ij; 

FILE  *infile; 

int^array  image; 

/  41 4c  4c  4c  4c  4: 4c  4c  4c  4c  4c  *  4c  4c  4c  4c  4c  4c  4c  3^  4c  4c  4c  4c  4c  ♦  4c  3^  ♦  4c  4c  4c  4c  4c  *  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/♦  create  array  to  hold  the  incoming  image  4c/ 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  3^  4c  4c  3^  4c  4c*4c  4: 4c  4c  4c  4c  4c  4c  4c«4c  4c  4c  4c  4c  4c  4c  4>  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

if(argc  ==  !){ 

printf (**\n\n  Input  filename  of  image  to  be  analyzea:'*) ; 
scanf  (*7*s** ,  infilename)  ; 

printf ("\n\n  Input  the  number  of  Rows  in  the  square  matrix**); 
printf (**\n  data  file.  (The  number  must  a  power  of  2):**); 
scanf  ( **Xd** ,  ftimage .  ROW)  ; 
image. COL  =  image. ROW; 

else  { 

sprintf (infilename,  *'y*s**,  argvCl]); 
sscanf  (argv  [2]  ,  **%d** ,  ftimage .  ROW)  ; 
image. COL  =  image. ROW; 

image. array  =  imatrixd,  image. ROW,  1,  image. COL); 

/  4c  4c  4c  3^  4c  3^  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4C  ♦  4c  4c  4  4c  ♦  4c  *  4c  4c  4c  4c  4c  4  4c  4c  4c  / 

/♦  load  image  to  be  analyzed  ♦/ 

/44c4c44c44c4c4c44c4c43^4c«4c44c44c44c44^4c44c44c43^4c44c3^/ 

OPEN^FILE  (infile,  infilename,  **The  wavelet  analyzer**); 
loopi j ( image . ROW ,  image . COL) 

f  scanf  (inf  ile,**yd**,  ftimage.  array  [i+1]  Cj+l]) ; 

CLOSE^FILE  (i,  infilename,  **The  Wavelet  analyzer**,  infile) 
printf (**\n  ♦4c  The  image  7,s  has  been  loaded  for  processing,  ♦♦\n\n\n**, 
infilename) ; 
return  image; 


B,2.3  LisUng  of  DECOMPOSE.C 


/43^4c4*4c44c43»^3^3^44c3^*4^*«4c4^3»^*3^4c3»44c4c443|c444c3^3»4c4c444c3»*4^4c44c443»4t44c«4c443^4*^«4c44c44c44c/ 
/444c4c3^4c443^4  44c44c4*43>3>«4c44c43^443^444c3>444c4c43>3>44c3>444c4c44*3^44c444c44*3>4444c44*«4c4»4c44c4/ 

/♦♦♦  WAVELET  DECOMPOSITION  SUBROUTINE  ♦♦/ 

/44c44c44c43^444c44c44c*«4c4c4^43»3^4c3^4c43^4c43^^3^4c4c44c44c44c44c443^3^*4c444c4«44c443»3^444c44^3»«*3^3»4c4c4/ 

/444c44c^3»4c444c3»4c44c3^44^^^4c4*3^*^«4c«4*^^*^«#4c3^44c**44c4c44^*^4c444^4c44c4444c443#^4c44c44«4/ 

/♦  DATE:  19  June  91 
VERSION:  1.0 
NAME :  decompose . c 

DESCRIPTION:  This  subroutine  is  intended  to  be  part  of  a  Wavelet 
analyzing  program  called  •'wave**.  The  algorithm  used  is  discussed  in 
the  description  of  the  main  driver  module  called  "main-wavc-c**. 

Data  is  passed  by  reference  from  the  main  driver  module.  The  data  is 
in  ascii  format  arranged  in  a  square  matrix  whose  dimensions  are  a 
power  of  2.  This  requirement  has  not  only  made  programming  more 
convenient  but  is  required  by  the  convolution  routine  from  Ntunerical 
Recipies  in  C:  The  Art  of  Scientific  Computing - 

FILES  READ:  NONE  (Passed  by  reference  from  the  caller.) 

FILES  WRITTEN:  Four  coefficient  files  at  each  level  of  analysis. 

The  file  names  begin  with  the  input  image  filename 
and  end  with  an  extension  of  the  form  **.nXro**  where 
n  is  an  integer  that  represents  the  level,  X  is  one 
of  the  letters  or  'd'  to  represent  phi 
or  psi  coefficients  respectively,  and  m  is 
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an  integer  1*  2,  or  3  that  represents  the 
orientation  verticle,  horizontal,  or  amgular 
repsectively . 

HEADERS  USED;  <stdio.h>,  “jsmacros .h** 

CALLING  PROGRAMS :  main-wave . c 
PROGRAMS  CALLED:  convolve. c,  filters. c,  nrutil.c 
AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing 
HISTORY:  Initi-il  Version. 


/♦  DECLARATION  SECTION  ♦/ 

/  ^  4c  4c  4c  #  9tE  4c  3fc  ♦  4c  ♦  ♦  3(e  4c  ♦  *  4c  ♦  4c  3^  4c  3^  *  4c  / 


#include  <stdio.h> 
#include  "jsmacros.h** 


void 

void 

float 

float 

void 

void 

int 


convolve () ; 
filters (); 
♦vector O ; 
♦♦matrix () ; 
free^vectorO ; 
free^matrixO ; 
♦♦imatrixO; 


/4c4c4c^4c4c*4c«4ca»«^4c^4c4c^^^^4c4c/ 

/♦  MAIN  PROGRAM  BODY  ♦/ 

/4c4c4c^^«^4c4c4c«^4c4c«#4c«4c4ca»4c4c/ 


void  decompose (imagepointer,  infilename) 
int^array  ♦imagepointer; 
char  infilename  □  ; 

{ 


/«  4c  4c  4c  4c  4c  4c «  4c4c  4c  ♦  ♦  ♦  ♦  4c%  4c  4c  4c  4c*4c  4c  / 

/♦  declare  variables  ♦/ 

/i^4c4c^*^^^^^^^^^^^^^^^^4c4c4c/ 


int 

float^vector 

float_vector 

float.vector 

float^vector 

float^vector 

float .array 

float. array 

float.array 

float.array 

FILE 

char 

int.array 


i>  j»  R»  maxlevel,  wavelet. type; 

h.of_n,  h.of.nflipo,  g.of.n,  g.of.nflipo,  phi,  phiflipo; 
phiflipc,  ♦phiflipcpointer  =  ftphiflipc; 

♦h.of.npointer  =  fth.of.n,  ♦h.of.nflipopointer  =  Ah.of.nflipo; 
♦g-of.npointer  =  ftg.of.n,  ♦g.of.nflipopointer  =  ftg.of.nflipo; 
♦phipointer  =  ftphi,  ♦phiflipopointer  =  ftphiflipo; 
c.coef,  dl.coef,  d2.coef,  dS.coef; 

♦c.coefpointer=  Ac.coef .♦dl.coefpointer=  Adl.coef ; 
♦d2.coefpointer=  M2.coef, ♦dS.coef point er=  &d3_coef ; 
temp,  ♦temppointer  =  fttemp; 

♦outf ile; 

filename [64] ,  wave.codeC64] ; 
newimage,  ♦newimagepointer  =  Anewimage; 


/*3^4c*4c«4c4c4c*4c*4c«4c*4c«*«***«/ 

/♦  allocate  memory  ♦/ 

/4c4c  *  4c  4c  4c « 4c  4c  4c « 3^  :^*4C  *  4c  4c  «*4c  4c  / 


temp. ROW  =  imagepointer->ROW; 

temp. COL  =  imagepointer->COL; 

temp. array  =  matrixCl,  temp. ROW,  1,  temp. COL); 

loopij (temp. ROW, temp. COL)  temp. array [i+l] [j+l]  =  0.0; 

c.coef. ROW  =  imagepointer“>ROW ; 

c.coef .COL  =  imagepointer->COL; 

c.coef. array  =  matrixCl,  c.coef. ROW,  1,  c.coef. COL); 
loopijCc.coef. ROW, c.coef .COL)  c.coef .array[i+l] [j  +  l]  =  0.0; 
dl.coef. ROW  =  imagepointer->ROW; 
dl.coef. COL  -  imagepointer->COL; 
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dl.coef .array  =  matrix(l,  dl.coef .ROW,  1,  dl^coef .COL)  ; 
loopij(dl_coef  .R0W,dl_coef  .COL"'  dl^coef  .array  [i+l]  Cj+l]  =  0 
d2_coef.R0W  =  iinagepointer->ROW ; 
d2_coef.C0L  =  imagepointer“>COL; 

d2_coef .array  =  matrix(l,  d2_coef.R0W,  1,  d2_coef.C0L); 
loopij(d2_coef  .R0W,d2.coef  .COL)  d2_coef  .array  [i+l]  [j+1]  =  0 
d3.coef.R0W  =  iinagepointer~>ROW ; 
dS.coef .COL  =  imagepointer->COL; 

dS.coef .  array  =  matrixd,  dS.coef.ROW,  1,  dS.coef  .COL)  ; 
loopij(d3_coef  .R0W,d3.coef  .COL)  d3_coef. array [i+1]  [j+1]  =  0 
neuimage.ROW  =  imagepointer->ROW; 
newimage . COL  =  imagepointer->COL; 

nevimage. array  =  imatrixd,  newimage. ROW,  1,  newimage. COL)  ; 
loopij (newimage. ROW, newimage. COL)  newimage. array  [i+l]  [j+l] 

li.cf  .n .  vector  =  vectorCl ,imagepointer->R0W*2) ; 
loopi(imagepointer“>R0W+2)  h.of.n.  vector  [i+1]  =  0.0; 
g-Of.n. vector  =  vector (l, imagepointer->R0W*2) ; 
loopi(imagepointer->R0W*2)  g.of.n. vector [i+1]  =  0.0; 
h.of.nflipo. vector  =  vector(l,imagepointer->R0W*2); 
loopi(imagepointer->R0W+2)  h.of.nflipo.  vector  [i+1]  =  0.0; 
g..of .nflipo . vector  =  vector(l,imagepointer->R0W*2); 
loopi(imagepointer“>R0W*2)  g.of .nflipo. vector [i+l]  =  0.0; 
phi.  vector  =  vector  (1, 2*  iroagepointer“->R0W) ; 
loopi(imagepointer->R0W*2)  phi. vector [i+l]  =  0.0; 
phiflipo. vector  =  vector(l,2^imagepointer->R0W) ; 
loopi(imagepointer“'>R0W+2)  phiflipo.  vector  [i+l]  =  0.0; 
phiflipc.  vector  =  vector(l,2^imagepointer-'>R0W) ; 
loopi(imagepointer->R0W*2)  phiflipc.  vector  [i+l]  =  0.0; 

/♦  display  menu  */ 


printf  (’'XnXn 
printf (" 
printf  (** 
printf  (** 
printf (” 
printf {” 
printf  (** 
printf (” 
printf  (** 
printf  {•• 
printf (” 
printf (” 
printf  (*' 
printf {” 
printf  (**Xn 


DECOMPOSITION  MENUXnXn”); 

1  =  Piece~wise  Constant. (N/A)Xn**) ; 

2  =  Piece-wise  Linear. (N/A)Xn”); 

3  =  Daubechies  N=2.Xn”); 

4  -=  Daubechies  N=3.Xn”); 

5  =  Daubechies  N=4.Xn”) ; 

6  =  Daubechies  N=5.Xn**); 

7  =  Daubechies  N*=6.Xn**) ; 

8  =  Daubechies  N=7 .  Xn** )  ; 

9  =  Daubechies  N=8.Xn**); 

10  =  Daubechies  N=9.Xn**); 

11  =  Daubechies  N=10.Xn“); 

12  =  Splines.  Xn**); 

13  =  Morlet.(N/A)Xn**); 

Enter  an  integer  1-13:  **); 


scanf  ("Xd**,  Awavelet.type) ; 


/♦  error  handling  for  invalid  input  */ 

if  (wavelet .type  <  3  I  I  wavelet.type  >  13)  { 

printf (**XnYou  have  chosen  an  Invalid  Wavelet  type  or*'); 
printf ("Xnthis  type  is  not  currently  available.'*); 

}  /♦  end  if  ♦/ 
else  { 


/♦  Set  wave.code  for  use  in  output  filenames.  */ 
if  (wavelet.type  ==  3)  sprintf (wave.code,  **db2**); 
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if  (wavelet.type 
if  (wavelet^type 
if  (wavelet_type 
if  (wavelet.type 
if  (wavelet^type 
if  (wavelet.type 
if  (wavclet.type 
if  (wavelet.type 
if  (wavelet.type 


4)  sprint!  (wave.code,  '*db3**); 

5)  sprint-^ (wave.code,  '•db4'*); 

6)  sprintf  (wave_code,  '*db5**); 

7)  sprintf  (wave^code »  '*db6**); 

8)  sprintf  (wave^code ,  **db7**); 

9)  sprintf (wave^code,  **db8”); 

10)  sprintf (wave_code,  **db9”) 

11)  spr intf  (wave.code ,  ••dbO”) 

12)  sprintf (wave.code,  ’*spl*') 


/♦  Generate  Phi  and  Filters  ♦/ 

/  3^  ](t  4c  4c  4c  *  *  4c  4c  ♦  1 4c  4c  «  4c  *  4c  ♦  ♦  «  ♦  ♦  4c  / 


filters  (wavelet_type,h_of_npointer,g_of_npointer,phipointer) ; 
f lipo(phipointer ,  phif lipopointer) ; 

h.of^nflipopointer  =  h_of_npointer; 
g-of.nf lipopointer  =  g_of_npointer; 

loopij (iinagepointer->ROW, imagepointer“>COL) 

temppointer‘->array[i+l]  [j+l]  =  (float )imagepointer->array[i+l]  [j+l]  ; 


/4c4c««4c*4c4c4c4c«4c*4c4c4c4c4c*4c4c4c4c4c4c4c4c4c4c«4c4c3^*4c4c4c4c#4c«4c4c««4c«4c«3^4c4c4c#«4c4c%4c««*4c4c/ 

/*  Call  convolution  routine  and  save  the  coefficient  arrays  for  ♦/ 

/♦  each  level  of  analysis. 

/  3^  4c  4c  4c  4c  4c  4c  3^  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ♦  4c  4c «  4c  4c  4c  ♦  4c  4c  4c  4c  4c ««  4c  4c  4c  ^  4c  ♦♦  4c  *  4c  ♦  4c  4c «  4c  4c «  4c  ♦  4c  4c  4c  4c  4c  4c  / 

maxlevel  =  L0G2(iniagepointer“>R0W) ;  /♦  Calculate  the  highest  level  4c/ 
ic=l; 

loopk(maxlevel){ 

if  (temp. ROW  >=  h_of_n. length) {  /♦  image  has  to  be  bigger  than  filter  */ 
printf (“XnPerforming  convolution  with  filters,  level**); 
printf  (**5(d. .  .*',  k+1); 

convolve (temppointer,  h_of_nf lipopointer,  g.of^nf lipopointer, 
c^coefpointer ,  dl.coef pointer ,d2_coefpo inter ,d3_coef pointer) ; 

sprintf (filename,  **7.s.5ld.c.5(s**,  infilename,  k+1,  wave_code); 

CREATE_FILE(outfile,  filename,  **The  Wavelet  Analyzer**) 
loopij ( c^coef . ROW , c_coef . COL) 

fprintf  (outfile,  **5Cf\n**,  c^coef  .array [i+l]  [j+l])  ; 

CL0SE_FILE(i,  filename,  **The  Wavelet  Analyzer*',  outfile) 

sprintf  (filename,  *'7,s.7d.dl.y.s**,  infilename,  k+1  ,wave_code) ; 
CREATE_FILE(outf ile,  filename,  "The  Wavelet  Analyzer") 
loopij (dl_coef . ROW ,dl_coef . COL) 

fprintf  (outfile,  **y.f\n*',  dl_coef  .array  [i+l]  [j+l]  ) ; 

CL0SE_FILE(i,  filename,  "The  Wavelet  Analyzer",  outfile) 

sprintf (filename,  "%s.yd.d2.ys",  infilename,  k+1 ,wave_code) ; 
CREATE_FILE(outf ile,  filename,  "The  Wavelet  Analyzer") 
loopij (d2_coef . R0W,d2_coef . COL) 

fprintf  (outfile,  "y.fXn",  d2_coef  .array  [i+l]  [j  +  l]  ) ; 

CL0SE_FILE(i,  filename,  "The  Wavelet  Analyzer",  outfile) 

sprintf  (filename,  "%s.yd.d3.y,s" ,  infilename,  k+1  ,wave_code)  ; 
CREATE_FILE(outfile,  filename,  "The  Wavelet  Analyzer") 
loopij (d3_coef . ROW , d3_coef . COL) 

fprintf  (outfile,  "y,f\n",  d3_coef  .array  [i+l]  [j+l]  ); 

CL0SE_FILE(i,  filename,  "The  Wavelet  Analyzer",  outfile) 

temp. ROW  =  c.coef.ROW; 
temp. COL  =  c.coef .COL; 

loopij (temp. ROW, temp. COL)  temp. array [i+l]  [j+l]=c_coef .array(i+l] [j+l] ; 
}  /♦  end  if  ♦/ 

}  /♦  end  loop  ♦/ 

}  /♦  end  else  ♦/ 
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/♦  free  memory  ♦/ 

free..niatrix(temp. array,  1,  temp. ROW,  1,  temp. COL); 
free_matrix(c_coef .array,  1,  c^coef.ROW,  1,  temp. COL); 
free_matrix(dl_coef .array,  1,  dl_coef.R0W,  1,  dl_coef .COL); 
free_matrix(d2_coef .array,  1,  d2_coef.R0W,  1,  d2_coef .COL) ; 
free.matrix(d3_coef .array,  1,  d3_coef.R0W,  1,  d3_coef .COL); 
frec_vector{h_of _n. vector , 1 ,imagepointer->R0W*2) ; 
frce_vector(g_of_n. vector, l,imagepointer->R0W*2) ; 
f ree^vector (phi . vector , 1 , imagepointer~>R0W*2) ; 
free_vector(phif  lipo .  vector,  1 ,  iiiiagepointer->R0y*2) ; 
free_vector(phif lipc . vector, 1 , imagepointer“>R0V»2) ; 

/♦  THE  EID  ♦/ 

> 

B.2.4  Listing  of  RECONSTRUCT. C 


/♦  DATE:  2  July  91 

VERSIOM:  2.0  (uses  spconvlv) 
lAHE :  reconstruct . c 


DESCRIPTION:  This  subroutine  is  intended  to  be  part  of  a  Wavelet 
analyzing  program  called  "»ave2**.  The  algorithm  used  is  discussed  in 
the  description  of  the  main  driver  module  called  '*main-vave.c”. 

It  controls  the  portion  of  the  program  that  reconstructs  a  previously 
decomposed  image  using  Maillat's  multiresolution  algorithm  referenced 
in  the  description  of  the  calling  program,  ”main-uave.c”. 

FILES  READ:  Four  coefficient  files  at  each  level  of  analysis. 

The  file  names  begin  vith  the  input  image  filename 
and  end  with  an  extension  of  the  form  ".nXm”  vhere 
n  is  an  integer  that  represents  the  level,  X  is  one  of 
the  letters  'c'  or  to  represent  phi  or  psi  coef¬ 
ficients  respectively,  and  m  is  an  integer  1,  2,  or  3 
that  represents  the  orientation  verticle,  horizontal, 
or  angular  repsectively. 

FILES  WRITTEN:  One  file  with  the  extension  •‘.rec”. 

HEADERS  USED:  <stdio.h>,  "jsmacros.h” 

CALLING  PROGRAMS:  main-wave. c 

PROGRAMS  CALLED:  filters. c,  rcconvolve . c ,  nrutil.c 


AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing 


HISTORY:  Initial  Version. 


♦/ 


/♦  DECLARATION  SECTION  ♦/ 


^include  <stdio.h> 
Ifinclude  “jsmacros.h” 


void  filtersO; 
void  reconvolve ( ) ; 

float  ♦ vector ( ) ; 

float  ♦♦iaatrix(); 
void  free. vector ( ) ; 

void  free.oatrixO ; 
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int  ♦*imatrix() ; 
void  free^imatrixO ; 

4c :((:(( t  1 4c  %  t  ^  1 1 4c  / 

/♦  MAIN  PROGRAM  BODY  */ 

/4c  4c  4e  4t  4c  4c  4c  4c  4c  4t  4c  4' 4c  4c  4c  4c  4c  4e  4c  4c  4c  4c  4c  / 

void  reconstruct ( imagepoint er , inf ilename ) 
int.array  4ciinagepointer ; 
char  infilename [] ; 

-c 

/  4c  4c  4c  4c  4c  4c  4e  4c  4e  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

/♦  declare  V2iriables  4c/ 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

int  i,  j,  k,  1,  maxlevel,  wavelet^type; 

float ^vector  h^of^n,  h.of^nflipo,  h^of.nflipc,  g^of^n; 

float^vector  g_of_nflipo,  g.of^nflipc,  phi,  phiflipc; 

float^vector  4ch_of_npointer  =  &h_of_n,  4cg_^of_npointer  ==  &g„of_n; 

float^vector  4ch_of»nflipopointer  =  &h_of_nflipo; 

float^vector  4cg_of_nflipopointer  =  &g_of_nflipo; 

float  ^vector  4ch_of_nflipcpointer  =  &h_of_nflipc; 

float.vector  4cg_of^nflipcpointer  =  &§^of_nflipc; 

float^vector  4cphipointer  =  &phi,  4cphiflipcpointer  =  &phiflipc; 

float^array  c^coef,  dl.coef,  d2_coef,  d3_coef; 

float^array  4'c_coefpointer=  ftc^coef  ,4cdl_coft‘fpointer=  &dl_coef ; 

float_array  4cd2_coefpointer=  &d2_coef  ,4cd3.co^ipointer=  &d3_coef ; 

float _array  temp,  4ctemppointer  =  ftterap; 

int_array  newimage,  4cnewimagepointer  -  >inewimage; 

FILE  4coutfile,  4cinfile; 

char  filename [64] ,  wave_code[64] ; 

float  holder [64] ; 

/  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/♦  allocate  memory  ♦/ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

temp. ROW  =  imagepointer->ROW; 

temp. COL  =  imagepoint er->C0L; 

temp. array  =  matrixd,  temp. ROW,  1,  temp. COL); 

loopij (temp. ROW, temp. COL)  temp.array [i+1]  [j  +  1]  =  0.0; 

newimage. ROW  =  imagepoint er">R0W; 

newimage. COL  =  imagepoint er->C0L; 

newimage . array  =  imatrix(l,  newimage . ROW ,  1,  newimage. COL) ; 
loopij (newimage. ROW, newimage. COL)  newimage. array  [i+1] [j  +  1]  =  0.0; 
c^coef.ROW  =  imagepointer->ROW; 
c_coef ,C0L  =  imagepoint er->C0L; 

c_coef. array  =  matrixd,  c^coef.ROW,  1,  c_coef.C0L); 
loopij(c_coef ,R0W,c_coef .COL)  c^coef .array[i+l] [j+1]  =  0.0; 
dl^coef.ROW  =  imagepointer">R0W; 
dl_coef.C0L  =  imagepointer“>C0L; 

dl_coef  .array  =  matrixd,  dl^coef.ROW,  1,  dl^coef  .COL) ; 
loopij(dl_coef .R0W,dl_coef .COL)  dl.coef .array  [i+l]  [j  +  l]  =  0.0; 
d2_coef.R0W  =  imagepointer->R0W; 
d2_coef.C0L  =  imagepointer“>C0L; 

d2_coef .array  =  matrix(l,  d2_coef.R0W,  1,  d2_coef ,C0L) ; 
loopij(d2_coef .R0W,d2_coef .COL)  d2_coef .array  [i+l]  [j  +  1]  =  0.0; 
d3_coef.R0W  =  imagepointer-->ROW; 
d3_coef.C0L  =  imagepointer“’>COL; 

d3_coef .array  =  matrixd,  d3_coef.R0W,  l,  dS^coef .COL); 
loopiJ(d3_coef .R0W,d3.coef .COL)  d3„coef .array[i+l]  [j  +  l]  =  0.0; 

h_of_n. vector  =  vector(l  ,imagepointer->R0W4'2)  ; 
loopi(imagepointer->R0Wt2)  h_of„n. vector  [i+1]  =0.0; 
g_of_n. vector  =  vector(l ,  imagepointer->R0W4c2) ; 
loopi(imagepointer“>R0W4c^>  g^of^n.  vector  [i+1]  =0.0; 
phi.  vector  =  vector  (1 ,24cimagepointer->R0W) ; 
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loopi(imagepoiiiter“>R0W*2)  phi. vector Ci+1]  =  0.0; 
ph'flipc. vector  =  vector(l,2^iraagepointer“>R0W) ; 
loopi(imagepoiiit9r“>R0W*2)  phiflipc. vector [i+1]  =  0.0; 
h_of_nflipo. vector  =  vector (l,imagepointer->R0W*2); 
loopi(imagepointer-*>R0W*2)  h«of_nflipo.  vector  [i+1]  =  0.0; 
g^of^nflipo. vector  =  vectord ,imagepointer“>R0W*2) ; 
loopi(imagepointer->R0W*2)  g_of_nflipo. vector [i+l]  =  0.0; 
h^of^nflipc. vector  =  vector ( 1, iroagepoint er->R0W^2) ; 
loopi(imagepointer-“>R0W^2)  h_of_nflipc. vector [i+1]  =  0.0; 
g-.of_nflipc. vector  =  vector ( 1, i»2igepointer“>R0W*2) ; 
loopi(imagepointer“>R0W*2)  g_of_nflipc. vector  [i+1]  =  0.0; 

/♦  display  menu  ♦/ 

/4c]|(9(e]|c4c)(e4c  1 )|c/ 

pr intf  ( *»\n\n  RECONSTRUCTION  MENU\n\n** )  ; 

printf(**  1  =  Piece~wise  Constant .  (N/A)\n”) ; 
printf(**  2  =  Piece-wise  Linear .  \.N/A)\n") ; 

printfO*  3  =  Daubechies  N=2.\n“) ; 

printfO'  4  =  Daubechies  N=3.\n'*) ; 

printfO'  5  =  Daubechies  N=4.\n**) ; 

printfO*  6  =  Daubechies  N=5.\n") ; 

printf(*'  7  =  Daubechies  N=6.\n"); 

printfO*  8  =  Daubechies  N=7.\n*‘) ; 

printfO*  9  =  Daubechies  N=8.\n") ; 

print! ("  10  =  Daubechies  N=9.\n”) ; 

printfO*  11  =  Daubechies  N=10.  \n*') ; 

printf(**  12  =  Splines  .\n*') ; 

printfO*  13  =  Morlet .  (N/A)\n**) ; 

printfO*  Enter  an  integer  (1-13):**); 

scan! (**%u" ,  &wavelet_type)  ; 

if (wavelet _type  <  1  I  I  wavelet _type  >  13  ){ 

print! 0*\nYou  have  chosen  an  invalid  wavelet  or'*); 
print! 0*\nit  is  not  currently  available.**); 

} 

else  { 

/ 4c  3tc  ]|C  ](C  ]|C  4c  ](c  3tc  Jic  4e  9|c  Jtc  ^  ie  ]|e  ^  i|e  1 4c  * *  4c  *  ifc  t  4c  / 

/♦  Set  value  of  wave^code  for  input  filename  */ 

/  4c  4(  4c  4c  4c  4c  4c  4t  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ♦  4c  4c  4c  4c  4c  4t  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ♦  4c  4c  4c  4c  4c  / 

if  (wavelet .type  ==  3)  sprint!  (wave.code,  **db2**) ; 
if  (wavelet.type  ==  4)  sprint! (wave. code,  "db3'*); 
if  (wavelet.type  ==  5)  sprint! (wave.code,  **f'.b4"); 
if  (wavelet.type  ==  6)  sprint! (wave.code,  **db5*'); 
if  (wavelet.type  ==  7)  sprint! (wave.code,  *'db6'*); 
if  (wavelet.type  ==  8)  sprint! (wave.code,  **db7**); 
if  (wavelet.type  ==  9)  sprint! (wave.code,  '*db8’') ; 
if  (wavelet.type  ==  10)  sprint! (wave.code,  "db9**); 
if  (wavelet.type  ==  11)  sprint! (wave.code,  "dbO**); 
if  (wavelet.type  ==  12)  sprint! (wave.code,  "spl"); 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  4c  4c/ 

/*  Generate  Phi  and  Filters  ♦/ 

/  4c  4c  4c  4c  1 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

f liters (wavelet.type ,h.of.npo inter , g.of .npointer , phipo inter) ; 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  A  4c  4c  4c  4c  4c  4c  4c  1 4c  4c  4c  / 

/*  flip  the  filters  4c/ 

/  4t  4;  4c  4e  4c  4e  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

loopl j (h.of .npointer->length) 
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holder Ch_of_npointer->length  +1  -j]=  h_of_npointer->vector  [j] ; 
locpl j (h_of _npointer->length) 

h_of«npointer->vector[j]  =  holder [j]; 
loopl  j  (g_of  _npoiiiter->length) 

holder [g_of_npointer“>length  +1  -j]=  g,of„npointer“>vector [j] ; 
loopl j (g_of _npointer~>length) 

g_of_npointer*“>vector[j3  =  holder  [j]; 

h_of_nflipcpointer=  h_of_npo inter; 
g_of_nflipcpointer=  g_of_npointer; 


/*  Call  reconvolution  routine  to  reconstruct  from  coarsest  phi  ♦/ 
/♦  coefficients  and  all  of  the  psi  coefficients.  ♦/ 

/  %  3^  t  %  4c  *  ^  ^  1 1 4c  1 4c  t  :|c  %  :|c  3|c  1 3te  jfe  )|c  ife  3)c  3(c  ^  :(c  ^ ]|c  :(c  }|(:(c  :tc  4c  4e  3|c:|c  % 3(e  })e  *  3(c  %  %  :|c  / 

maxlevel  =  L0G2(imagepointer“>R0W) ;/*Calculate  the  highest  level4c/ 
temp. ROW  =  1;  temp. COL  =  1; 

do  {  /4c  make  sure  image  is  bigger  than  filter  4c/ 

temp. ROW  4c=2; 
temp. COL  4c=2; 

— maxlevel; 

}  while  (temp. ROW  <  h_of.n. length/2) ; 

c^coef .ROW  =  temp. ROW;  c_coef .COL  =  temp. COL; 
dl^coef.ROW  =  temp. ROW;  dl^coef.COL  =  temp. COL; 
d2_coef.R0W  =  temp. ROW;  d2_coef.C0L  =  temp. COL; 
dS^coef .ROW  =  temp. ROW;  d3_coef.C0L  =  temp. COL; 

1=1; 

f or (k=maxlevel ; k>0 ; — k) { 

/*  for(k=maxlevel;k==maxlevel; — k){  */ 
if(l  ==  1){ 

sprintf (filename,  "V.s.y.d.c.Xs*',  infilename,  k,wave_code); 
OPEN^FILE (infile,  filenEime,  "The  Wavelet  Analyzer") 
loopij (c^coei  ROW,c_coef .COL) 

fscanf  (inf ile,  "y,f\n",  &c_coef. array [i+l]  [j+i])  ; 
CLOSE_FILE(i,  filename,  "The  Wavelet  Analyzer",  infile) 

1  =  0; 

}  /♦  end  if  4c/ 
else  { 

c_coef.R0W  =  temp. ROW; 
c_coef .COL  =  temp. COL; 

loopij(c_coef .R0W,c_coef .COL)  c„coef .array [i+1] [j+l]  = 
temp. array [i+l] [j+l] ; 

}  /4c  end  else  4c/ 

sprintf  (filename,  "/.s  .y.d.dl  .y.s" ,  infilename,  k,wave„code)  ; 
0PEN_FILE( infile,  filename,  "The  Wavelet  Analyzer") 
loopi j (dl.coef . ROW , dl^coef . COL) 

fscanf  (inf  ile,  "y.f\n",  &dl_coef  .array  [i+l]  [j+l])  ; 
CLOSE_FILE(i,  filename,  "The  Wavelet  Analyzer",  infile) 

sprintf  (filename,  "Xs  .y,d.d2.y,s" ,  infilename,  k,wave_code)  ; 
OPEN_FILE(inf ile,  filename,  "The  Wavelet  Analyzer") 
loopi j (d2_coef . ROW , d2_coef . COL) 

fscanf  (infile,  "y,f\n",  &d2_coef  .array  [i+l]  [j+l]  )  ; 
CLOSE_FILE(i ,  fileneone,  "The  Wavelet  Analyzer",  infile) 

sprintf  (filename,  "'/.s.y.d.dS.y.s"  infilename,  k,wave_code) ; 
OPEN_FILE(inf ile,  filename,  "The  Wavelet  Analyzer") 
loopi j (dS.coef . ROW , dS.coef . COL) 

fscanf  (inf  ile,  "y*f\n",  &d3_coef  .array  [i+l]  [j+l]  )  ; 
CLOSE„FILE(i,  filename,  "The  Wavelet  Analyzer",  infile) 
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printf  (*'\nPerforming  reconvolution  with  filters,  level  y.d...",  k) ; 
reconvolve (temppointer,  h^of^nflipcpointer,  g^of.nflipcpointer, 
c^coefpointer ,  dl^coef pointer,  d2„coef pointer, 
dS^coefpointer) ; 

if (wavelet_type  ==  12) 

loopij (temp. ROW, temp. COL)  temp.array ti+1] Cj+1]  *=  4; 

sprintf  (filename,  "7,8 .^d. c.'/.s .rec" ,  inf ilename,k-l  ,wave_ code)  ; 
CREATE_FILE(outfile,  filename,  "The  Wavelet  Analyzer") 
loopij (temp . ROW , t emp . COL) 

fprintf  (outf ile,  "y,f\n",  temp. arrayCi+1]  Cj+1])  ; 

CLOSE_FILE(i,  filename,  "The  Wavelet  Analyzer",  outf ile) 

}  /*  end  loop  ♦/ 

>  /*  end  else  */ 

/♦  free  memory  */ 

free.matrix (temp. array,  1,  temp. ROW,  1,  temp. COL); 
f ree_imatrix(newimage. array ,  1,  newimage.ROW,  1,  newimage.COL) ; 
f ree_matrix(c_coef .  zirray ,  1 ,  c^coef .  ROW ,  1 ,  c_coef .  COL) ; 
free_matrix(dl_coef .array ,  1,  dl^coef.ROW,  1,  dl.coef .COL) ; 
free_matrix(d2_coef .array,  1,  d2_coef.R0W,  1,  d2_coef .COL) ; 
free_matrix(d3_coef .array ,  1,  d3_coef,R0W,  1,  d3_coef .COL) ; 

/*  THE  END  ♦/ 

} 

B.2,5  Listing  of  FILTERS. C 


/  :(c  ]|C  >4c  4c  4c  4c 4c  4c  3|c  Ifc  4c  *  4c  *  ♦  4c  ♦  ifc  ♦  4c  4c  *  ♦  *  *  *  4c  ♦  ite  *  *  4c  3|t  If:  3|e  If  3|C  *  1 4c  4c  / 

/4(  4c  4e  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/4C4C4C  WAVELET  H&G  FILTER  SUBROUTINE  **/ 

y  4c  4c  4c  4c  4c  4c  4;  4c  4t  4c  4(  4c  4;  4c  4c  4c  4t  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4  4c  4c  4c  4c  4c  4c  4c  4c  4c  4  4c  4c  4  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4  4c  4c  4c  4c  / 
/4444444444c44c44c4444c444c4444c4444c444444c4444c44c44c444c44c4444c44c44c444c44c4c4444c444c4444c4c4/ 

/♦  DATE:  20  June  91 
VERSION:  2.0 
NAME:  f liters. c 

DESCRIPTION:  This  subroutine  is  intended  to  be  part  of  a  Wavelet 
analyzing  program  called  "wave2".  The  algorithm  used  is  discussed  in 
the  description  of  the  main  driver  module  called  "main-wave. c. 

This  routine  provides  the  caller  with  the  discrete  points  of  a  pair  of 
response  functions  previously  derived  and  hard  coded  corresponding  to 
the  type  of  wavelet  desired.  Also,  the  scaling  function, 
phi(x)  is  provided  for  the  purpose  of  generating  the  phi 
coefficients  at  level  zero. 

FILES  READ:  NONE 

FILES  WRITTEN:  (Passed  by  reference  back  to  the  caller.) 

HEADERS  USED:  <stdio,h>,  "jsmacros.h" 

CALLING  PROGRAMS:  decompose. c,  nrutil.c 
PROGRAMS  CALLED:  NONE 

AUTHOR:  Steve  Smiley  cind  J.  Stewart  Laing 

HISTORY;  Version  2  altered  f liters. c  for  spatial  convolution  from  the 
Fourier  convolution  used  in  version  1. 

♦/ 

/4444444444444c44c4444c44c4  4444444  44444c44444444  4c444c4444444444c4444444c444c4444c444c44/ 
/4444444444444444444444444444444444 44444444444444444444444444444444444444444/ 
/44444444444444444 44444444/ 

/4  DECLARATION  SECTION  */ 

/4444444444444444444444444/ 

#include  <stdio.h> 
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#include  **jsmacros.h" 

/)|c  3|C  4c  }|c  ic  *  3|c  3(C  9(C  }|c  t  4c  3|C  4c  *  Sfc 4c *  / 

/♦  MAIN  PROGRAM  BODY  */ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  / 

void  filters  (wavelet„type,h_of_npointer ,g_of_npoint€r,phipointer) 
int  wavelet _type; 

float_vector  *h_of_npointer,  *g_of_npointer ,  ♦phipointer; 

/  4c  4c  4c  4c  4c  4c  4e  4c  4c  4c  4c  4t  4c  1 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  >ic  4c  4c  4c  / 

/4c  The  response  functions  of  the  H  and  G  filters  are  evaluated  at  the  ♦/ 
/*  negative  of  the  argument,  i.e.  g(n)=g(-n)  and  h(n)=h(-n)  4c/ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4e  4c  4c  4c  4c  4(  4c  4c  4e  4e  4c  4e  4c  4e  4c  4e  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  4c  4c  4c  4c  4c  4c  4c  / 

if  (wavelet^type  ==  1){ 

printf ("\nThis  selection  not  currently  available.**); 

} 


if  (wavelet.type  ==  2){ 

printf ('*\nThis  selection  not  currently  available.**); 

} 


if  (wavelet.type  ==  3){ 

h^of_npointer->vector[4]  = 
h.of_npointer-“>vectorC5]  = 
h_of_npointer“>vectorC6]  = 
h_of_npointer->vector  [7]  = 
h_of_npointer->vectorCl]  = 
h_of_npointer->vector[2]  = 
h_of_npointer->vector[3]  = 
h_of_npointer“>length  =  7; 

g.-Of_npointer->vector[4]  = 
g_of_npointer->vector[5]  = 
g-Of_npointer->vector[6]  = 
g_of_npointer*->vector[7]  = 
g_of_npointer->vector[l]  = 
g-of_npointer->vector [2]  = 
g.of_npointer-->vector  [3]  = 
g_of_npointer->length  =  7; 


.482962;  /4c  h(0)4c/ 
.836516;  /4c  h(l)4c/ 
.224143;  /4c  h(2)4c/ 
-.129409;  h  h(3)*/ 
0.0;  /4c  h(-3)4c/ 

0.0;  /4C  h(-2)t/ 

0.0;  /*  h(-l)4c/ 

.836516;  h  gCO)*/ 
-.482962;  /*  g(l)*/ 
0.0;  /4c  g(2)4c/ 

0.0;  /4C  g(3)4c/ 

0.0;  /*  g(-3)*/ 
-.129409;  /4c  g(-2)4c/ 
-.224143;  h  g(-l)4c/ 


phipointer->vectorCl]  =  0.032348658;  /4c  phi(0)4c/ 
phipointer->vector [2]  =  1.302557547;  phi(l)4c/ 
phipointer->vector[33  =  -0.334912635;  /4c  phi (2)*/ 
phipointer->vector[4]  =  0.0000000001;  /4c  phi (3) 4c/ 
phipointer->vector[53  =  0.0000000001;  /4c  phi (-3) 4c/ 
phipointer->vector[6]  =  0.0000000001;  phi(-2)4c/ 

phipointer->vector[7]  =  0.0000000001;  h  phi(-l)*/ 
phipointer->length  =  7; 

if  (wavelet^type  ==  4){ 

h_of_npointer->vector[6]  =  0.332670553;  /4c  h(0)4c/ 
h_of.npointer-> vector [7]  =  0.806891509;  /♦  h(l)4c/ 
h_of_npointer->vector [8]  =  0.459877502;  /*  h{2)4c/ 
h_of _npointer->vectorC9j  =  -0.135011020;  /4c  h(3)4c/ 
h.of_npointer->vector[l0]  =  -0.085441274;  /4c  h(4)4c/ 
h_of_npointer->vector [11]  =  0.035226292;  /4c  h(5)4c/ 

h_of _npointer->vector[l]  =  0.0;  /4c  h(-5)4c/ 

h_of_npointer->vector[2]  =  0.0;  /4c  h(-4)*/ 

h_of _npointer->vector[3]  =  0.0;  /4c  h(-3)4c/ 

h^of _npointer->vector[4]  =  0.0;  /4c  h(-2)4c/ 

h_of _npointer->vector [5]  =  0.0;  h(“l)4c/ 

h_of_npointer->length  =  11; 


g-of.npointer->vector[5j  =  0.806891509;  h  g(0)4c/ 
g-.of_npointer-> vector [7]  =  0.332670553;  g(l)4'/ 


141 


g_of_npointer->vector[8]  -  0.0;  /♦  g(2)*/ 
g_of_npointer-> vector [9]  =  0.0;  /*  g(3)*/ 
g_of_npointer->vector[10]  =  0.0;  /*  g(4)*/ 
g_of_npointer->vector[ll3  =  0.0;  /*  g(5)*/ 
g_of_npointer->vector[l]  =  0.0;  /*  g(-5)*/ 
g_of_npointer-> vector [2]  =  0.459877502;  /*  g(-4)*/ 
g_of _npointer->vector [3]  =  -0.135011020;  /♦  g(-3)*/ 
g_of_npointer->vector[4]  =  -0.085441274;  /*  g(-2)*/ 
g_of_npointer->vector[53  -  0.035226292;  /*  g(-l)*/ 
g_of_npointer->length  =  11; 

phipointer->vector[l3  =  0.001129175;  /*  phi(O)*/ 
phipointer->vector [23  =  1.285632059;  /*  phi(l)*/ 
phipointer->vector [33  =  -0.386241412;  /*  phi(2)*/ 
phipointer->vector[43  =  0.095244687;  /*  phi(3)*/ 
phipoiiiter-> vector [53  =  0.004229018;  /*  phi(4)*/ 
phipointer->vector[63  =  0.000000001;  /♦  phi(5)*/ 
phipoiiiter->vector[73  =  0.0000000001;  /*  phi(-5)*/ 
pMpointer-> vector [83  =  0.0000000001;  /*  phi(-4)*/ 
phipoiiiter-> vector [93  =  0.0000000001;  /♦  phi(-3)*/ 
phipoincer->vector[103  =  0.0000000001;  /♦  phi(-2)*/ 
phipointer->vector[ll3  =  0.0000000001;  /♦  phi(-l)*/ 
phipointer->length  =  11; 


if  (wavelet_type  ==  5){ 

h_of_npointer->vector[83  = 
h_of_npointer->vector[93  = 
h_of _npo inter->vector [103 
h_of _npoint  er->vector [1 13 
h_of _npointer->vector [123 
h_of_npointer->vector[133 
h_of_npointer->vector[143 
h_of_npointer->vector[153 
h_of _npointer->vector [l3 
h_of _npointer->vector [23 
h_of_npointer->vector[33 
h_of _npointer->vector [43 
h_of _npointer->vector [53 
h_of_npointer->vector[63 
h_of _npointer->vector [73 
h_of_npointer->length  = 


:  0.230377813;  /♦  h(0)*/ 
0.714846571;  /♦  h(l)>f/ 

=  0.630880768;  /♦  h(2)*/ 

=  -0.027983769;  /♦  h(3)*/ 
=  -0.187034812;  /*  h(4)*/ 
=  0.030841382;  /♦  h(5)*/ 

=  0.032883012;  /*  h(6)»/ 

=  -0.010597402;  /*  h(7)*/ 
0.0;  /♦  h(-7)*/ 

0.0;  /♦  h(-6)*/ 

0.0;./*  h(-5)*/ 

0.0;  /*  h(-4)*/ 

0.0;  /*  h(-3)*/ 

0.0;  /♦  h(-2)*/ 

0.0;  /*  h(-l)*/ 

15; 


g_of_npointer->vector[83  =  0.714846571;  /*  g(0)*/ 
g_of_npointer->vector[93  =  0.230377813;  /*  g(l)*/ 
g_of_npointer->vector[103  =  0.0;  /♦  g(2)*/ 

g_of_npointer->vector[ll3  =  0.0;  /♦  g(3)*/ 

g_of_npointer->vector[123  =  0.0;  /*  g(4)*/ 

g_of_npointer->vector[l33  =  0.0;  /*  g(5)*/ 

g_of_npointer->vector[143  =  0.0;  /♦  g(6)*/ 

g_of_npointer->vector[153  =  0.0;  /*  g(7)*/ 

g_of_npointer->vector[l3  =  0.0;  /*  g(-7)*/ 
g_of_npoiiiter->vector[23  =  -0.010597402;  /*  g(-6)*/ 
g_of_npointer->vector[33  =  0.032883012;  /♦  g(-5)*/ 
g_of_npointer->vector[43  =  0.030841382;  /♦  g(-4)*/ 
g_of_npointer->vector[53  =  -0.187034812;  /*  g(-3)*/ 
g_of_npointer->vector[63  =  -0.027983769;  /»  g(-2)*/ 
g_of_npointer->vector[73  =  0.630880768;  /*  g(-l)*/ 
g_of_npointer->length  =  15; 

phipointer->vector[l3  =  0.000041362;  /*  phi(O)*/ 
phipointer->vector[23  =  1.010495941;  /*  phi(l)*/ 
phipointer->vectorr33  =  -0.039093761;  /*  phi(2)*/ 
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phipointer“>vector[4]  =  0.041834300;  /♦  phi(3)*/ 
phipointer“>vector[5]  =  “0.012011135;  /♦  phi (4)*/ 
phipointer“>vector[6]  =  -0.001294973;  /♦  phi(5)*/ 
phipoiiiter“>vector[7]  =  0.000021869;  /*  phi (6)*/ 
phipointer“>vector[8]  =  0.000000001;  /♦  phi(7)*/ 
phipointer->vector[9]  =  0.0000000001;  /♦  phi(“7)*/ 
phipointer“> vector [10]  =  0.0000000001;  /*  phi(-6)*/ 

phipoiiiter“>vector[ll]  =  0.0000000001;  /*  phi(“5)*/ 

phipointer“>vector[l2]  =  0.0000000001;  /*  phi(-4)*/ 

phipointer“>vector[13]  =  0.0000000001;  /*  phi (-3)*/ 

phipointer“>vector[14]  =  0.0000000001;  /♦  phi(“2)*/ 

phipointer“>vector[15]  =  0.0000000001;  /♦  phi(“l)*/ 

phipointer“>length  =  16; 

if  (wavelet _type  ==  6){ 

printf (**\nThis  selection  not  currently  available.*'); 

> 

if  (wavelet.type  ==  7){ 

h_of_npointer“>vector[12]  =  0.111540743;  /♦  h(0)^/ 
h_of_npointer“>vcctor[13]  =  0.494623890;  /♦  h(l)*/ 
h_of_npointer“>vector[14]  =  0.751133908;  /*  h(2)*/ 
h_of_npointer->vector[15]  =  0.315260352;  /♦  h(3)*/ 
h_of_npointer">vector[16]  =  -0.226264694;  /*  h(4)*/ 
h_of_npointer->vector[17]  =  -0.129766868;  /*  h(5)*/ 
h_of.npointer->vector[J8]  =  0.097501606;  /*  h(6)*/ 
h_of_npointer->vector[19]  =  0.027522866;  /*  h(7)*/ 
h_of_npointer->vector[20]  =  -0.031582039;  /♦  h(8)*/ 
h_of_npointer->v€Ctor[21]  =  0.000553842;  /*  h(9)*/ 
h_of_npointer->vector[22]  =  0.004777257;  /*  h(l0)*/ 
h_of_npointer->vector[23]  =  -0.001077301;  /♦  h(ll)*/ 
h_of_npointer->vector[l]  =  0.0;  /*  h(-ll)»/ 

b_of_npointer->vector[2]  =  0.0;  /*  h(-lO)^/ 

h_of_npoiiiter->vector[3]  =  0.0;  /*  h(-9)*/ 

h_of_npointer->vector[4]  =  0.0;  /*  h(-8)*/ 

h_of_npointer->vector[5]  =  0.0;  /*  h(-7)*/ 

h_of_npointer-> vector [6]  =  0.0;  /♦  h(-6)^/ 

h_of_npointer->vector[73  =  0.0;  /*  h(-5)*/ 

h_of_npointer->vector[8]  =  0.0;  /*  h(-4)*/ 

h_of_npointer->vector[9]  =  0.0;  /♦  h(-3)*/ 

h„of_npointer->vector[10]  =  0.0;  /*  h(-2)*/ 
h_of_npointer->vector[ll]  =  0.0;  /♦  h(-l)*/ 
h_of_npointer->length  =  23; 

g-Of_npointer->vector[12]  =  -0.494623890;  /♦  g(0)*/ 
g_of_npointer->vector[13]  =  0.115407434;  /*  g(l)*/ 
g.-Of_npointer->vector[14]  =  0.0;  /♦  g(2)*/ 
g^of_npointer->vectortl5]  =  0.0;  /*  g(3)*/ 
g_of_npointer->vector[l6]  =  0.0;  /*  g(4)*/ 
g„of_npointer->vector[l7]  =  0.0;  /*  g(5)*/ 
g-of_npointer->vector[l8]  =  0.0;  /*  g(6)^/ 
g-Of_npointer->vector[l9]  =  0.0;  /*  g(7)+/ 
g_of_npointer->vector[20]  =  0.0;  /♦  g(8)*/ 
g_of_npointer->vector[21]  =  0.0;  /*  g(9)*/ 
g-Of_npointer->vector[22]  =  0.0;  /♦  g(10)*/ 
g_of_npointer->vector [23]  =  0.0;  /♦  g(ll)*/ 
g_of_npointer->vector [l]  =  0.0;  /*  g(-ll)*/ 
g_of_npointer-> vector [2]  =  0.001077301;  /*  g(-10)+/ 
g-Of_npointer->vector[3]  =  0.004777257;  /*  g(-9)*/ 
g_of_npointer->vector[4]  =  -0.000553842;  /♦  g(-8)*/ 
g_of.npointer->vector[5]  =  -0.031582039;  /♦  g(-7)*/ 
g_of.npointer->vector[6]  =  -0.027522866;  /★  g(-6)*/ 


g-.of_npointer->vectorC73  =  0.097501606;  /*  g(-5)*/ 

g. of„npointer->vector[8]  =  0.129766868;  /*  g(“4)*/ 
g^of_npointer“>vector[93  =  -0.226264694;  /♦  g(-3)^/ 
g-Of^npointer->vectorCl03  =  -0.315250352;  /*  g(-2)*/ 
g_of_npointer->vector[ll3  =  0.751133908;  /*  g(-l)*/ 

g-.of_npointer->length  =  23; 

phipointer->vector[l3  =  0.000018901;  /*  phi(O)*/ 
phipoiiiter->vector[23  =  0.474401220;  /*  phi(l)*/ 
phipoiiiter->vector[33  =  0.8077836S1;  /*  phi(2)*/ 
phipointer->vector[43  =  -0.376153951;  /*  phi (3)*/ 
phipoiiiter->vectorC53  =  0.137747794;  /♦  phi(4)^/ 
phipoiiiter->vector[63  =  -0.024343102;  /*  phi(5)*/ 
phipointer->vector[73  =  -0.003162779;  /♦  phi(6)^/ 
phipointer->vector[83  =  0.001579497;  /♦  phi(7)*/ 
phipoiiiter->vector[93  =  0.000017680;  /♦  phi(8)*/ 
phipointer->vector[l03  =  -0.000001908;  /♦  phi(9)*/ 
phipointer->vector[ll3  =  0.000000002;  /*  phi(lO)^/ 
phipointer->vector[123  =  0.000000001;  /*  phi(ll)*/ 
phipoiiiter->vector[133  =  0.0000000001;  /*  phi(-ll)*/ 
phipointer->vector[143  =  0.0000000001;  /★  phi(-lO)*/ 
phipointer->vector[l53  =  0.0000000001;  /♦  phi (-9)*/ 
phipointer->vectorCl63  =  0.0000000001;  /♦  phi (-8)*/ 
phipointer->vector[173  =  0.0000000001;  /♦  phi(-7)*/ 
phipoiiiter->vector[183  =  0.0000000001;  /♦  phi(-6)*/ 
phipointer->vectorCl93  =  0.0000000001;  /*  phi(-5)+/ 
phipointer->vector[203  =  0.0000000001;  /*  phi(-4)*/ 
phipointer->vector[2l3  =  0.0000000001;  /♦  phi(-3)*/ 
phipointer->vector[223  =  0.0000000001;  /♦  phi(-2)*/ 
phipointer->vector[233  =  0.0000000001;  /♦  phi(-l)*/ 
phipointer->leagth  =  23; 

} 

if  (wavelet.type  ==  8){ 

printf (”\nThis  selection  not  currently  available.**); 

if  (wavelet_type  ==  9){ 

printf (**\nThis  selection  not  currently  available.*'); 

if  (wavelet _type  ==  10) C 

printf (**\nThis  selection  not  currently  available.*'); 

if  (wavelet^type  ==  11){ 

printf ("\nThis  selection  not  currently  available."); 

if  (wavelet _type  ==  12) { 

h_of_npointer->vector [133  =  0.542;  /*  h(0)*/ 
h_of„npointer-> vector [143  =  0.307;  /♦  h{l)*/ 
h_of_npointer->vector [153  =  -0.035;  /♦  h(2)*/ 
h_of_npointer->vector [163  =  -0.078;  /♦  h(3)*/ 
h_of_npointer->vector [173  =  0.023;  /*  h(4)*/ 

h^of_npointer->vector [183  =  0.030;  /*  h(5)*/ 
h«of_npointer->vector [193  =  -0.012;  /♦  h(6)*/ 
h_of_npointer->vector[203  =  -0.013;  /♦  h(7)*/ 
h_of_npointer->vector[2l3  =  0.006;  /*  h(8)*/ 

h. of_npointer->vector[223  =  0.006;  /♦  h(9)*/ 
h_of_npointer->vector[233  =  -0.003;  /*  h(10)*/ 
h_of_npointer->vector[243  =  -0.002;  /♦  h(ll)*/ 
h_of_npointer->vector[253  =  0.0;  /*  h(12)*/ 
h_of_npointer->vector[l3  =  0.0;  /♦  h(-12)*/ 
h.of_npointer->vector [23  =  -0.002;  /♦  h(-ll)*/ 
h_of_npointer->vector [33  =  -0.003;  /*  h(-10)t/ 
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h_of_iipointer-> vector [4]  =  0.006;  /*  h(-9)^/ 

h.of_npointer-> vector [6]  =  0.006;  /♦  h(-*8)^/ 

h.of_npointer-'>vector[6]  =  -0.013;  /*  h(-7)*/ 
h_of_npoiiiter->vector[7]  =  -0.012;  /*  h(-6)*/ 
h_of_npointer->vectorC8]  =  0.030;  /♦  h(-S)*/ 

h_of_npointer->vectorC9]  =  0.023;  /*  h(-4)*/ 

h.of_npoiiiter->vector[lO]  =  -0.078;  /*  h(-3)*/ 
h_of.npointer->vector[ll]  =  -0.035;  /*  h(-2)*/ 
h_of_npointer->vector[12]  =  0.307;  /♦  hC-l'^*/ 

h.of_npointer->length  =  25; 

g-.of_npointer->vector[l3]  =  -0.307;  /*  g(0)*/ 
g-.of_npointer->vector[14]  =  0.542;  /♦  g(l)*/ 
g-Of_npointer->vector[15]  =  -0.307;  /♦  g(2)*/ 
g-of_npointer->vector[16]  =  -0.035;  /*  g(3)*/ 
g^of_npoiiiter->vector[17]  =  0.078;  /♦  g(4)*/ 
g-.of_npointer->vector[183  =  0.023;  /♦  g(5)*/ 
g^of_npointer->vector[19]  =  -0.030;  /*  g(6)*/ 
g-Of_npointer->vector[20]  =  -0.012;  /♦  g(7)*/ 
g-Of_npoiiiter->vector[21]  =  0.013;  /*  g(8)*/ 
g-.of_npointer->vector[22]  =  0.006;  /♦  g(9)*/ 
g-Of_npointer->vector[23]  =  -0.006;  /♦  g(10)*/ 
g_of jpointer->vector[243  =  -0.003;  /♦  g(ll)*/ 
g„of_npointer->vector[25]  =  0.002;  /♦  g(12)*/ 
g^of_npointer->vector[l]  =  0.0;  /♦  g(-12)*/ 
g_of_npointer->vector[2]  =  0.0;  /♦  g(-ll)^/ 
g^of_npoint€r->vector[33  =  0.002;  /♦  g(-lO)*/ 
g-.of_npointer->vector[43  =  -0.003;  /*  g(-9)*/ 
g-Of_npointer->vectorC53  =  -0.006;  /♦  g(-8)*/ 
g_of_npointer->vectorC63  =  0.006;  /♦  g(-7)*/ 
g-Of„npointer->vector[73  =  0.013;  /♦  g(-6)*/ 
g_of_npointer->vectorC83  =  -0.012;  /*  g(-5)*/ 
g»of_npointer->vector[93  =  -0.030;  /*  g(-4)*/ 
g_of_npointer->vector[103  =  0.023;  /♦  g(-3)^/ 
g«of_npointer->vector[ll3  =  0.078;  /*  g(-2)*/ 
g^of_npointer->vector[l23  =  -0.035;  /♦  g(-l)+/ 
g_of_npointer->length  =  25; 

phipointer->vectorCl3  =  0.5385;  /♦  phi(O)*/ 
phipointer->vector[23  =  -0.2106;  /♦  phi(l)*/ 
phipointer->vectorC33  =  0.04319;  /♦  phi(2)*/ 
phipointer->vector[43  =  0.01334;  /♦  phi(3)*/ 

phipointer->vector[53  =  0.00738;  /♦  phi (4)*/ 
phipointer->V€Ctor[63  =  -0.00324;  /♦  phi(5)*/ 

phipointer->vectorC73  =  0.00030;  /♦  phi(6)*/ 
phipointer-> vector [83  =  -0.00012;  /*  phi(7)*/ 
phipointer->vector[93  =  0.00001;  /*  phi(8)^/ 
phipointer->vector[l03  =  0.0000000001;  /♦  phi(9)*/ 
phipointer->vector[ll3  =  0.000000001;  /♦  phi (10)*/ 
phipointer->vectorCl23  =  0.000000001;  /*  phi(ll)*/ 
phipointer->vectorCl33  =  0.0000000001;  /♦  phi(-ll)*/ 
phipointer->vector[143  =  0.0000000001;  /♦  phi(-lO)*/ 
phipointer->vector [153  =  0.0000000001;  /♦  phi (-9)*/ 
phipointer->vector[l63  =  0.00001;  /*  phi(-8)*/ 
phipointer->vector[l73  =  -0.00012;  /*  phi(-7)*/ 
phipointer->V€Ctor[l83  =  0.00030;  /*  phi(-6)*/ 
phipoiiiter->vector[l93  =  -0.00324;  /♦  phi(-5)*/ 
phipointer->vector[203  =  0.00738;  /♦  phi(-4)*/ 
phipointer->vectorL2l3  =  0.01334;  /♦  phi (-3)*/ 
phipointer->vector[223  =  0.04319;  /*  phi(-2)*/ 
phipointer->vector[233  =  -0.02106;  /♦  phi(-l)*/ 


I'lo 


phipointer->leiigth  =  23; 


if  (wavelet^type  ==  13) { 

printf (“XnThis  selection  not  currently  available.**); 

> 

if  (wavelet _type  >  13  | |  wavelet _type  <  1) 

printf (**\nYou  have  chosen  an  invalid  selection.**); 

/*  THE  END  */ 


B.2.6  Listing  of  CONVOLVE.C 


/  4c  ifc  4c  4c  ]|e  4c  *  4c  i(c  ](c  4c  4c  ♦  ♦  4c  4c  #  ^  4e  1 4c  ^  3|citc  :|c  %  9|c  4c  ]|c  4c  4c  4c  4c  4e  4c  ^  4e  :(e  4c  4c  4c  ♦  ♦  4t  %  :tc  4c  4c  ♦  3(c  4c  4c  3|c  *  :|e  / 

/★♦♦  WAVELET  CONVOLUTION  SUBROUTINE  *♦/ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ^  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ♦  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

f  4e4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c^4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c/ 

/♦  DATE:  19  June  91 
VERSION:  1.0 
NAME:  convolve. c 

DESCRIPTION:  This  subroutine  is  intended  to  be  pzart  of  a  Wavelet 
analyzing  program  called  **wave**.  The  algorithm  used  is  discussed  in 
the  description  of  the  main  driver  module  called  '*main-wave.c*'. 

Data  is  passed  by  reference  from  the  decomposition  subroutine.  Data  is 
in  ASCII  format  arranged  in  a  square  matrix  whose  dimensions  are  a 
power  of  2.  This  requirement  has  not  only  made  programming  more 
convenient  but  is  required  by  the  convolution  routine  from  Numerical 
Recipies  in  C:  The  Art  of  Scientific  Computing. 

FILES  READ:  NONE  (Passed  by  reference  from  the  caller.) 

FILES  WRITTEN:  (Passed  by  reference  back  to  the  caller.) 

HEADERS  USED:  <stdio.h>,  **jsmacros.h*' 

CALLING  PROGRAMS:  decompose. c,  nrutil.c 
PROGRAMS  CALLED:  needs  nr  library,  libnr.a 
AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing 
HISTORY:  Initial  Version. 

*/ 

/  4c  4c  4c  4c  4c  4(  4c  4r  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ^  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ^  4c  ^  4c  4c  4c  4c  4c  4c  4c  3^  4c  4c  4c  4c  4c  4c  / 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c ««  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ♦  4c  / 

/#  4c  ♦  4c  *  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/4C  DECLARATION  SECTION  */ 

/4c  4c  4c  4c  4c  4c  4c  4c «  4c  4c  ♦  4c  4c  4c  4c  4c  4c  4c  4c 4c  |c  4c  4c/ 

#include  <stdio.h> 

#include  **jsmacros.h'* 

float  ♦  vector  0; 
float  4c*matrix  (  )  ; 
void  free^vectorO ; 
void  f ree.vector O ; 
void  spconvlvO; 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  *  4c  4c  4c  4c  4c  4c  4c «  4c  4c  / 

/*  MAIN  PROGRAM  BODY  */ 

/  4c  4c «  4c  4c  4c  ^  4c  4c  4c  4c  4c  ♦  4ci^  4c  4c  4c  4c  4c  4c  4c  4c  / 

void  convolve  (datainpointer ,  h_of ^npointer  ,g_of.npointer ,  c.coef pointer , 
dl^coef pointer ,  d2_coef pointer ,  d3_coef pointer) 
float^array  ♦datainpointer; 
float.vector  *h.of.npointer ,  ♦g^of^npointer ; 

f loat^array  ♦c^coef pointer ,  4cdl  coef pointer , ♦d2_coef pointer , ♦d3.coef point er ; 
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/  31C  a(t  4c  ]|c  :|C  4e  ^  ♦  ♦  ♦  4t  ♦  ♦  ^  it  )|C  %  3tc  *  / 

/♦  declare  variables  ♦/ 

/  ic  ic  ic  it  ic  ic  ic  ic  *  ic  ic  t  ic  ic  it  ic  ic  *  ic  *  ic  ic  ic  A  / 

int  i ,  j ; 

f loat^vect or  rowin , rowout , colin , colout , response ; 
float_array  temp; 

FILE  *outfile; 
char  filename [64] ; 

/icic  ic  ic  icic  ic  A  ic  ic  icicic  i:ic  icic  icic  ic/ 

h  allocate  memory  */ 

/icieicicieieicicicicj^icicicicicicicicic/ 

temp. array  =  matrix(l,  datainpointer“>ROW,  1,  datainpointer“>COL) ; 
loopij(datainpointer->ROW,datainpointer->COL)  temp.array [i+l]  [j+1]  =  0.0; 
rowin. vector  =  vector ( 1, 2*dat ainpointer->COL) ; 
loopi(2*datainpointer->C0L)  rowin. vector [i+l]  =  0.0; 
rowout .vector  =  vectord ,4*datainpointer->C0L) ; 
loopi(datainpointer“>C0L*4)  rowout .vector [i+l]  =  0.0; 
colin. vector  =  vector(l,2*datainpointer->R0W) ; 
loopi(2*datainpointer“>R0W)  colin. vector [i+l]  =  0.0; 
colout. vector  =  vectord ,4*^atainpointer“>R0W) ; 
loopi(datainpointer->R0W*4)  colout .vector [i+l]  =  0.0; 
response. vector  =  vector(l,2+datainpointer->R0W) ; 
loopi(datainpointer“>R0W*2)  response. vector [i+l]  =  0.0; 

rowin. length  =  2*datainpointer->C0L; 
colin. length  =  2*datainpointer->R0W; 

/  ic:^4cicieicicieieici(icicicicicie^ic:^icicie/ 

/*  perform  convolution  ♦/ 

/  ic  i(  ic  ic  ic  ie  ic  ic  ic  ic  ic  ic  ic  ic  ic  ic  ic  ic  ic  4c  ic  ic  / 

printf  (**\nConvovling  rows  with  h(“n)  . . ; 
loopi(datainpointer->R0W){  /♦  convolve  rows  with  h(-n)  ♦/ 
loopj (datainpointer->R0W*2){ 

response. vector  [j+1]  =  h_of_npointer->vector [j+l] ; 

} 

loopj (datainpointer“>C0L)  rowin. vector [j+l]  =  datainpointer“>array[i+l] [j+l] ; 
spconvlv  (rowin .  vector ,  rowin .  length,response .  vector ,  h^of  _npointer->length ,  1 , 
rowout .vector) ; 

loopj (datainpointer~>C0L/2)  temp. array [i+l] [j+1]  =  rowout .vector [2^( j+1)] ; 

}  /♦  downsample  by  select iny  even  cols  */ 


printf (**\nConvovl:ng  cols  with  h(-n)...*'); 
loopi(datainpointer‘->C0L/2){  /♦  convolve  cols  with  h(“n)  ♦/ 
loopj (datainpointer“>R0W*2) 

response. vector[j+l]  =  h_of_npointer“>vector [j+1] ; 
loopj (datainpointer“>R0W)  colin. vector [j+l]  =  temp.array [j+1] [i+l] ; 
spconvlv ( colin . vector , colin . length , response . vector , h_of ^npoint er->length , 1 , 
colout .vector) ; 

loopj (datainpointer->R0W/2)  c_coefpointer->array [j+l] [i+l]  =  colout .vector[2*(j+l)] ; 
}  /♦  downsample  by  selecting  even  rows  ♦/ 


printf ("XnConvovling  cols  with  g(-n)..."); 
loopi(datainpointer->C0L/2){  /*  convolve  cols  with  gC-n)  ♦/ 
loopj  (datainpointer‘->R0W*2) 

response. vector [j+1]  =  g_of_npointer->vector [j+1] ; 
loop j (datainpointer->R0W)  colin. vector [j+l]  =  temp.array [j+1] [i+l] ; 
spconvlv ( colin . vector , colin . length , response . vector , g^of _npointer->length , 1 , 
colout .vector) ; 
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loopj (datainpointer->R0W/2)  dl^coefpointer~>array [j  +  l] [i+1]  -  colout . vector [2*(j  +  l)] ; 

> 

printf (**\iiConvovling  rows  with 

loopi(datainpointer->ROW){  /♦  convolve  rows  with  g(“n)  */ 
loopj  (datainpointer''>R0W*2) 

response. vectorCj+1]  =  g^of^npointer-‘>vector[j  +  l]  ; 
loopj (datainpointer->COL)  rowin. vector [j+l]  =  datainpointer->array[i+l][j+l]; 
spec nvlvCrowin. vector, rowin. length, response. vector, g^of_npoirter->length, 1, 
rowout .vector) ; 

loopj (datainpointer->C0L/2)  temp.array[i+l] Cj  +  l]  =  rowout .vector [2*(j  +  l)] ; 

> 


printf  (*'\nConvovling  cols  with  h(-'n)  ; 

loopi(datainpointer->C0L/2){  /♦  convolve  cols  with  h(-n)  */ 
loopj  (datainpointer-'>R0W*2) 

response. vector [j+l]  =  h_of ^npointer->vector[j+l] ; 
loopj (datainpointer->ROW)  colin. vector[j+l3  =  temp.array [j+l]  [i+1] ; 
spconvlv (colin . vector , colin . length, response . vector , h_of _npoint er“>length , 1 , 
colout. vector) ; 

loopj (datainpointer^>R0W/2)  d2^coefpointer“>array [j+l] [i+l]  =  colout .vector[2*(j+l)] ; 

} 

printf ("\nConvovling  cols  with  g(-n)..."); 
loopi(datainpointer->C0L/2){  /*  convolve  cols  with  g(-n)  */ 
loopj  (datainpointer'->R0W*2) 

response. vector [j+l]  =  g_of_npointer->vector[j+l] ; 
loopj (datainpointer->ROW)  colin. vector[j+l]  =  temp. array [j+l]  [i+1] ; 
spconvlv(colin.vector,colin.length,response.vector,g.of_npointer->length,l, 
colout .vector) ; 

loopj (datainpointer‘->R0W/2)  d3_coefpointer->array [j+l]  [i+l]  =  colout .vector [2*( j+l)] ; 

} 


/♦  reset  row  and  col  indeces.  */ 

c_coefpointer->ROW  =  datainpointer->R0W/2; 
c_coefpointer->COL  =  datainpointer“>C0L/2; 
dl_coefpointer“>ROW  =  datainpointer->R0W/2; 
dl_cocfpointer->COL  =  datainpointer->C0L/2; 
d2_coefpointer->R0W  =  datainpointer->R0W/2; 
d2_coefpointer->C0L  =  datainpointer“>C0L/2; 
d3_coef point er->R0W  =  datainpointer->R0W/2; 
d3_coefpointer->C0L  =  datainpointer->C0L/2; 

/♦  free  memory  ♦/ 

free_matrix(temp. array ,  1,  datainpointer->ROW,  1, 
datainpointer->COL) ; 

free_vector  (rowin.  vector,  l,2’»'datainpointer->R0W) ; 
f ree^vector  (rowout . vector , 1 , 4*datainpointer->R0W) ; 
f ree^vector  ( colin . vector , 1 , 2*datainpointer->R0W) ; 
free_vector  (colout . vector , 1 ,4*datainpointer->R0W) ; 
f ree_vector  (response . vector , 1 , 2*datainpointer“>R0W) ; 

/♦  THE  END  ♦/ 

} 

B.2.7  Listing  of  RECONVOLVE^C 
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/  ^  4c  1 ^  ^  3|c  :|c  :(c  :4c ^  #  9|c  4c  Jte  4c  4 '4c  :f;  :(c  :|c  :4(  1 3(c  1c  *  4c  4c  4c  4c  4c  #  4c  t  *  4c  4;  ♦  4c  if  / 

/♦♦♦  WAVELET  RECONVOLUTION  SUBROUTINE  ♦♦/ 

/  4e  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  3^  4c  4c  4c  4c  cf  )f  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ♦  4c  4c  4c  4c  4c  3^  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  ♦  4c  4c  4c  4c  ^  / 
f  4c  4c  4c  4c  4c  4c  4c  4e  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  3^  4c  4c  4c  4c  4c  4c  4c  3^  4(3^*  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  3^  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

/*  DATE:  2  July  91 
VERSION:  1.0 
NAME :  reconvolve . c 

DESCRIPTION:  This  subroutine  is  intended  to  be  part  of  a  Wavelet 
analyzing  program  called  **wave2**.  The  algorithm  used  is  referenced  in 
the  description  of  the  main  driver  module  called  "main-wave. c. 

Data  is  passed  by  reference  from  the  reconstruction  subroutine.  Data  is 
in  ascii  format  arranged  in  a  square  matrix  whose  dimensions  are  a 
power  of  2.  This  requirement  has  not  only  made  programming  more 
convenient  but  is  required  by  the  convolution  routine  from  Numeric 
Recipies  in  C:  The  Art  of  Scientific  Computing. 

FILES  READ:  NONE  (Passed  by  reference  from  the  caller.) 

FILES  WRITTEN:  NONE  (Passed  by  reference  back  to  the  caller. 

HEADERS  USED:  <stdio.h>,  "jsmacros .h" 

CALLING  PROGRAMS:  reconstruct . c 
PROGRAMS  CALLED:  NONE 

AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing 
HISTORY:  Initial  Version. 

4c/ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  3ic  4c  4e  3^  4c  4c  3|c  4c  4c  4(  3|c  4c  4c  4c  4c  4c  4c  4c  4c  4c  *  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  34c  4c  4c  4c  4c  4c  4c  4c  4c  4c  3tc  4c  ^  4c  3^  4c  4c  4c  3^  4c  3|c  3f  4c  4t  4c  4c  4c «  4c  4c  4(  4c  / 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  3^  4c  4c  4c  3fr  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4t  4c  4c  4c  4c  4c  4c#  4c  4c  4c  4c  4c  4c  4c  3^  4c  4c  4c  4c  4c  4c  4c  4c  4c  3»  3^  4c  4c  4c  4c  3f  4c  3^  3^  4c  3»  4c  4c  4c  4c  4c  3^  « 3^  4c  4c  4c «  4c  3f  / 

/  4c  4c  4c  3^  3^  4c  3^  4c  4c  #  4c  4c  4c  4c  3^  4c  3^  4c  4c  4c  4c  4c  4c  3^  4c  / 

/♦  DECLARATION  SECTION  ♦/ 

/#  4c  4c  4c  4c  4c  4c  4c  4c  3^  4c  #  4c  4c  4c  4c  4c  4c  4c  4c  3^  4c  4c  #  4c  / 

#include  <stdio.h> 

#include  " j  smacros . h" 

float  ♦vector 0 ; 

float  ♦♦matrix(); 
void  free^vectorO ; 

void  free.matrixO ; 

/4c4c4c4c4c^^^^^^^^^^^4c4c4ct^^^/ 

/♦  MAIN  PROGRAM  BODY  ♦/ 

/#4c  ♦  ♦  4c  ♦cf  4c  4t  #4c  4c  4c  ♦  4(  4c  4c4c4c#  ♦♦  ♦  / 

void  reconvolve (dataoutpointer , h_of _npointer , g_of ^npointer , c_coef po inter , 
dl^coef pointer ,  d2_coef pointer ,  dS.coefpointer) 
float ^sorray  ♦dataoutpointer; 
float. vector  ♦h.of.npointer ,  ♦g.of.npointer; 

f loat.array  ♦c.coef pointer , ♦dl.coef pointer , ♦d2_coef pointer , ♦dS.coef pointer ; 

/3^4C3^4c#4c3»4C3»^^^^^^4C3#4c^^^^^^/ 

/♦  declare  variables  ♦/ 

/  4c  4c  3^  4c  3f  #  4c  4c  4c  3^  #  3f  #  4c  3^  3^  4c  3f  4c  3f  4c  4c  4c  4c  / 

int  i ,  j ; 

f loat.vector  rowin , rowout , colin , colout ,  response ; 
f loat.array  temp .tempi . temp2 , temp3 , temp4 ; 
char  f il ename [64] ; 

FILE  ♦outfile; 

/  #  4c  #  #  4c  4c  ♦  3f  3^  4c  3»  3f  #  #  4c  4c  4c  4c  4c  4C  / 

/♦  allocate  memory  ♦/ 

/4c4c#  4c  #  #  3»4c  4c  ♦  ♦♦  ♦♦  ♦  3^^  3»  ic  #/ 

temp. ROW  =  c.coefpointer->R0y^2; 

temp. COL  =  c.coef point er“>C0L*2; 

temp. array  =  matrixd,  temp. ROW,  1,  temp. COL); 

loopij( temp. ROW, temp. COL)  temp.array [i+l]  [j  +  1]  =  0.0; 
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tempi. ROW  =  c.coef point er->R0W*2; 

tempi. COL  =  c.coef point er->C0L*2; 

tempi. array  =  matrix(l»  tempi. ROW,  1,  tempi. COL); 

loopij( tempi. ROW, tempi. COL)  t empl. array [i+l] [j+l]  =0.0; 

temp2.R0W  =  c_coef point er->R0W*2; 

temp2.C0L  =  c.coefpointer->C0L»2; 

temp2. array  =  matrixd,  temp2.R0W,  1,  temp2.C0L); 

loopij(temp2.R0W,temp2.C0L)  temp2.array [i+l]  [j+l]  =  0.0; 

tempS.ROW  =  c_coefpointer->R0W+2; 

tempS.COL  =  c_coefpointer--C0L*2; 

temp3. array  =  matrixd,  tempS.ROW,  1,  tempS.COL); 

loopijC  tempS.ROW,  tempS.COL)  tempS.  array  [i+l]  [j+l]  =  0.0; 

temp4.R0W  =  c_coefpointer->R0W»'^2; 

tefflp4.C0L  =  c_coef point er->C0L^2; 

temp4. array  =  matrixd,  temp4.R0W,  1,  temp4.C0L); 

loopij(tefflp4.R0W,temp4.C0L)  temp4.  array  [i+l]  [j+l]  =0.0; 

rowin.vector  =  vector (1, temp. R0W*2) ; 

loopi (temp. ROW »2)  rowin.vector [i+l]  =  0.0; 

rowout .vector  =  vector (1, t emp. R0W*4) ; 

loopi(temp.R0W«4)  rowout. vector [i+l]  =  0.0; 

colin. vector  =  vector(l,temp.C0L»2); 

loopi(temp.C0L^2)  colin. vector [i+l]  =  0.0; 

colout. vector  =  vector d,4*temp. COL) ; 

loopi(temp.C0L»4)  colout. vector [i+l]  =  0.0; 

response,  vector  =  vectord,temp.C0L^2); 

loopi(temp.C0L*2)  response. vector [i+l]  =  0.0; 

rowin. length  =  4*c_coefpointer“>C0L; 
colin. length  =  4^c_coefpointer->R0W; 
dataoutpointer->ROW  =  c.coefpointer->R0W*2; 
dataoutpointer->COL  =  c_coef point er->C0L*2; 

/♦  perform  convolution  ♦/ 

printf ('‘VnConvovling  cols  of  c.coef  with  h(n)..."); 
loopi(c_coefpointer->C0L){ 
loopj (c^coef pointer->R0W) 

colin- vector [2* (j+l)]  =  c_coefpointer->array[j+l] [i+l] ; 
loopj (colin . length) 

response . vector  [j+l] =h_of_npointer“> vector [j+l] ; 
sp  con  vlv(  col  in.  vector ,  colin.  length,  response  -  vector , 
h.of_npointer’->length,  1 ,  colout  .vector) ; 
loopj (c.coef pointer->R0W*2) 

tempi. array  [j+l]  [i+l]  =  colout .vector  [j+l] ; 

}  /♦  zeros  are  added  between  each  row  before  convolution  ♦/ 

printf (“XnConvovling  cols  of  dl^coef  with  g(n)...’‘); 
loopi (dl^coef pointer->COL) { 

loopj (dl_cocfpointer->R0W)  colin. vector [2^( j+l)]  = 
dl_coefpointer“>array[j+l] [i+l] ; 
loopj (colin . length) 

response . vector [j+l] =g_of_npo inter “>vector [ j + 1]  ; 
spconvlv( colin . vector , col in . length, response . vector . 

g^of .npointcr->lcngth, 1 , colout .vector) ; 
loopj (dl_cocfpointer“>R0W*2)  tenp2. array [j+l] [i+l]  =  colout. vector [j+l] 
}  /♦  zeros  are  added  between  each  row  before  convolution  ♦/ 

printf ("XaConvovling  cols  of  d2_coef  with  h(n)...”); 
loopi(d2.cocf pointer->C0L) { 

loopj (d2_coefpointer“>R0W)  colin. vector(2*{j+l)]  = 
d2_cocfpointcr->array(j+l] [i+l] ; 
loopj ( col in . 1 engt h ) 
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response . vector  C j + 1 3  =h_of _npo int  er-> vector [ j + 1] ; 
spconvlv ( colin . vector , col ' n . length , response . vector , 
h^of _npointer->length, 1 , colout .vector) ; 
loopj (d2_coefpointer->R0W*2) 

temp3. array [j  +  1] [i+l]  =  colout .vector  [j+1] ; 

}  /*  zeros  are  added  between  each  row  before  convolution  */ 

print! ("\nConvovling  cols  of  d3_coef  with  g(n)...**); 
loopi (d3_coef pointer->COL) { 

loopj (d3_coefpointer->R0W;  colin. vector C2*( j+1 )]  = 
d3_c^f fpoinber->array[j+l] [i+l] ; 
loopj ( ooiin . length) 

response . vector [ j + 1] =g_of _npoint er->vector [ j +1] ; 
spconvlv (colin . vector , colin . length, response . vector , 
g_of _npointer->length, 1 , colout .vector) ; 
loopj (d3.coef pointer->R0W*2) 
temp4. array [j+1] [i+l]  =  colout .vector  [j+1] ; 

}  /*  zeros  are  added  between  each  row  before  convolution  ♦/ 

/♦  Add  temp  arrays  for  col  convolutions  ♦/ 
loopijCtemp  ROW,  temp. COL) 

temp. array  [i+l]  [j+1]  =  tempi  .array  [i+l]  [j+1]  +  temp2.array  [i+l]  [j  +  1]  ; 
loopi j (tempi. ROW,  tempi. COL) 

templ.2Lrray[i+l]  [j+1]  =  temp3.  array  [i+l]  [j+1]  + 

temp4.  array  [i+l]  [j+1]  ; 

/♦  sprintf (filename,  "temp*'); 

CREATE_FILE(outf ile,  filename,  "The  Wavelet  Analyzer") 
loopi(dataoutpointer->R0W/2) 

fprintf  (outf  ile,  "5if\n",  temp,  array  [i+l]  [128]) ; 

CLOSE_FILE(i,  filename,  "The  Wavelet  Analyzer",  outf ile) 

sprintf (filename,  "tempi"); 

CREATE„FILE(outfile,  filename,  "The  Wavelet  Analyzer") 
loopi (dataoutpointer“>R0W/2) 

fprintf  (outf  ile,  "y,f\n" ,  tempi  .array  [i+l]  [128]  )  ; 

CL0SE_FILE(i,  filename,  "The  Wavelet  Analyzer",  outf ile)  ♦/ 

print! ("\nConvovling  rows  with  h(n)...*'); 
loopi (dat aoutpo int er->R0W ) { 

loopj (dataoutpointer~>C0L/2)  rowin. vector[2*(j+l)]  =  temp.array [i+l] [j+1] ; 
loopj (rowin . length)  response . vector [ j + 1] =h_of_npointer-> vector [ j + 1] ; 
spconvlv ( rowin . vector , rowin . length , r espons  e . vector , 

h_of .npointer->length , 1 ,rowout . vector) ; 
loopj (dat aoutpointer->ROW)  temp2. array [i+l] [j+1]  =  rowout .vector [j+1] ; 

}  /♦  zeros  are  added  between  each  col  before  convolution  ♦/ 

print! ("\nCon VO vling  rows  with  g(n),.."); 
loopi  (dataoutpcinter*->ROW){ 

loopj (dataoutpoint€r“>C0L/2)  rowin. vector [2*(j+l)]  =  tempi .array [i+l]  [j+1] ; 
loopj ( col in . length)  r espons e . vector [j  + 1] =g_of_npointer-> vector  [ j + 1] ; 
spconvlv (rowin . vector , rowin . length , response . vector , 

g-Of_npointer->length, 1 , rowout . vector) ; 
loopj (dataoutpointer“>ROW)  terap3.array [i+l] [j+1]  =  rowout .vector [j+1] ; 

}  /*  zeros  are  added  between  each  row  before  convolution  */ 

/♦  sprintf (filename,  "temp2"); 

CREATE_FILE(outf ile,  filename,  "The  Wavelet  Analyzer") 
loopi (dataoutpointer->ROW) 

fprintf  (out!  ile,  "'/.fXn",  temp2.  array  [i+l]  [128]); 

CLOSE_FILE(i,  filename,  "The  Wavelet  Analyzer",  outf ile) 

sprintf (filename,  "temp3"); 

CREATE_FILE(outf ile,  filename,  "The  Wavelet  Analyzer") 
loopi (datacutpointer“>ROW) 
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fprintf  (outf  ile,  temp3.array  [i+l]  [128]  )  : 

CLOSE_FILE(i,  filename,  *'The  Wavelet  Analyzer'*,  outfile)  ♦/ 

/*  Add  temp  arrays  to  get  resulting  dataout  ^1 

loopi j (dataoutpointer->ROW ,dataoutpointer“>COL) 

dataoutpointer->array [i+l] [j+l]  =  t emp2. array [i+l] [j+1]  + 

tempS. array [i+l] [j+l] ; 

/♦  sprintf (filename,  "dataout"); 

CREATE_FILE( outfile,  filename,  "The  Wavelet  Analyzer") 
lo  op i ( dat aout po int  er">ROW ) 

fprintf  (outfile,  "y.fXn",  dataoutpointer->array[i+l]  [128])  ; 
CLOSE_FILE(i,  filename,  "The  Wavelet  Analyzer",  outfile)  ♦/ 

/♦loopi j (dataoutpointer->ROW , dataoutpointer->COL) 

printx ("dataoutpointer->array  [Xd]  T/d]  =?if \n" , i+l ,  j+l , 
dataoutpointer->array[i+l] [j+l]) ;*/ 

/*  reset  row  and  col  indeces.  */ 

dl_coefpointer->ROW  =  dataoutpointer-’>ROW; 
dl_coefpointer*->COL  =  dataoutpointer->COL; 
d2_coef  point  er->ROW  =  dat  aout  po  int  er-'>R0W; 
d2_coef point er->C0L  =  dataoutpointer“>COL; 
d3_coefpointer->R0W  =  dataoutpointer->ROW; 
d3_coefpointer->C0L  =  dataoutpointer“>COL; 

/♦  free  memory  ♦/ 

free_matrix( temp. array,  1,  c_coefpointer->R0W*2,  l,c_coefpointer->COL) ; 
f ree_matrix(templ. array ,  1,  c_coefpointer“>R0W*2,  1, c^coef point er->COL); 
f ree_matrix(terap2. array ,  1,  c_coefpointer“>R0W+2,  1 ,c_coefpointer->COL) ; 
f ree_matrix( t emp3 , array ,  1 ,  c^coef pointer->R0W*2 ,  1 , c.coef pointer->COL) ; 
free_matrix(temp4. array ,  1 ,  c_coefpointer->R0W*2,  1 ,c_coefpointer“>COL) ; 
free_vector(rowin. vector,  1,  4*dataoutpointer->C0L); 
free_vector(rowout .vector,  1,  8*dataoutpointer->C0L) ; 
f ree^vect or (colin. vector,  1,  4*dataoutpoinx 8r->C0L) ; 
free_vector(colout .vector,  1,  8*dataoutpointer“>C0L) ; 

> 


B.2.8  Listing  of  SPCONVLV, C 


/♦*♦  WAVELET  SPACIAL  CONVOLUTION  SUBROUTINE  *♦/ 

/♦  DATE:  26  July  91 
VERSION:  1.0 
NAME:  spconvlv.c 

DESCRIPTION:  This  subroutine  will  do  a  convolution  of  two  time 
signals  in  the  time  domain  by  means  of  a  shift-mult iply-sum  method. 

This  program  intended  use  is  to  replace  the  convlvO  subroutine 
now  being  used  in  the  wavelet  convolve. c  and  reconvolve. c  portions 
of  the  wave2  pr'^gram. 

FILES  READ:  NONE  (Passed  by  reference  from  the  caller.) 

FILES  WRITTEN:  (Passed  by  reference  back  to  the  caller.) 

HEADERS  USED:  <stdio.h>",  "jsmacros.h" 

CALLING  PROGRAMS:  decompose. c 

PROGRAMS  CALLED:  nrutil.c 

AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing 
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HISTORY:  Initial  Version. 

*/ 

/  3K  3(e  ^  :|c  ifc  jfc  *  4(  4c  3|c :(( :|c  :|c  ](c  4c  9|e  t  :(c  :(c  3(c  4c  :(c  :|c  :|c  1 )(( 4c  3|c  4c  3|c  t  ]|c ♦  :4c  3|c  %  34c  ^  ^  4c  9|c  t  ^  4c  :|c  :|e  4(  *  9|c  )|c  ♦  3|c  it  ]|c  jfc  ](c  :(e  }(c  %  3|c  %  :(c  3(c  4c  :|c  3|c  :tc  ie  %  )ic  9((  / 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4^  4c  4c  4c  4c  4(  4c  / 

/*  DECLARATION  SECTION  ♦/ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

#include  <stdio.h> 

#include  "jsmacros.h" 

float  4cvector(); 
void  free_vector() ; 

void  f ree_vector ( ) ; 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/♦  MAIN  PROGRAM  BODY  */ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

void  spconvlv  (input,  input^length,  filter,  f ilter^length  ,dumby, output) 

float  ♦input,  ♦output,  *filter; 

int  input_length,  f ilter^length,  dumby; 

{ 

/  4c  4c  4c  4(  4e  4c  4c  4c  4c  4c  4e  4c  4c  4c  4c  4c  4: 4c  41: 4c  4c  4c  4c  4c  / 

/♦  declare  variables  ♦/ 

/  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  3^  4c  4c  / 

int  i,  j; 

float  ♦temp,  ♦temp2; 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ♦♦  / 

/♦  allocate  memory  ♦/ 

/  4c  4c  4c  4c  4(  4c  4c  4c  4e  4c  4c  4c  4c  4c  4c  4e4(  4c  4c  4c/ 

CREATE_FLOAT_VECTOR(temp, 1 ,2^input_length) ; 
loopli(2^input_length)  tempCi]  =0.0; 

CREATE_FLOAT_VECTOR(t emp2 , 1 , 2^ input. length)  ; 
loopli(2^input .length)  temp2[i]  =  0.0; 

/  4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c/ 

./♦  diagnostic  print  statements  ♦/ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ♦  4c  4c  4c  4c  4c  4c  / 

/♦  printf(*‘\n  filter  length  is  7,d",  f ilter.length) ; 
printf(*'\n  input  length  is  y,d",  input.length) ;  */ 
loopli(2^ input .1 engt h ) 
output [i]  =  0.0; 


/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

/♦  load  first  level  coefficients  ♦/ 

/  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

loop 1 i ( input.length/ 2) { 

tempCi  +  f ilter.length  -l]  =  inputCi]; 

/♦printf("\n  i=  Xd,  tempCi  +  f  ilter.length/2]  =  y.f",  i,  tempCi  +  f  ilter.length/2] ) ;  ♦/ 

/4c44c4c4(44c4c4e4c444c44c44c444c4c4  4  4  444  4444444c  44c44c444444444c44c44c4c4/ 

/♦  fill  in  both  ends  of  vector  with  flip  of  image  */ 

/ 44444444444444444444444444444444444444444444444444444/ 
loopliCf ilter.length  -!){ 

temp Cf ilter.length  -  i]  =  temp Cf ilter.length  +  l] ; 

temp Cf ilter.length  -1  +  input.length/2  +  i]  =  temp Cf ilter.length  -1  +  input_length/2  -  1] ; 
/ 444444444444444444444444444444444/ 
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/*  convolution  of  signal  ♦/ 

/  ]|e  %  1 ^  t  ^  4^  4c  ]|C}|c 

loopli (input „length/2  +  f ilter^length  -1){ 
loopl j (filter^length) 
temp2[i]  +=  tempCi+j-l]*f ilter [j] ; 

} 

/  ^  ^  :(c  4e  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  %  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/4c  load  proper  convolution  coefficients  4c/ 

/%  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  1 4c  4c  / 

loopli( input. length/2) 

output [i]  =  temp2Cfilter.length/2  +  i]  ; 

f  ree.vector  (temp,  1 ,24cinput  .length) ; 
free.vector(temp2, 1 ,2*input.leiigth) ; 


/4c  printf(*‘\n  i  =  •/•d,output-y,f " ,i,  output [i]);  4c/ 

} 

B.2.9  Listing  of  NRUTIL.C  (See  Appendix  F.2)  [35] 
B.2,10  Listing  of  JSMACROSJi  (See  Appendix  F.2) 
B.2A1  Listing  of  STEWMATH.H  (See  Appendix  F.2) 
B.2.12  Listing  of  MAKEFILE 


#  Makefile  routine  for  the  wave2  program  by  Laing  and  Smiley. 
DEFLAGS  =  -g 

OBJS  =  main-wave. o  loadimage.o  filters.o  convolve. o  spconvlv.oX 
decompose. o  reconstruct.©  reconvolve. o  nrutil.o 

spwave2:  $(0BJS) 

(Decho  "linking  — " 

cc  $(0BJS)  -o  wave2  $(DEFLAGS)  -Im 

main-wave . o :  main-wave . c 
cc  -c  $ (DEFLAGS)  main-wave. c 

loadimage.o:  loadimage.c 
cc  -c  $ (DEFLAGS)  loadimage.c 

filters.o:  filters.© 
cc  -c  $ (DEFLAGS)  filters.© 

spconvlv.o:  spconvlv.c 
cc  -c  $ (DEFLAGS)  spconvlv.c 

convolve . o :  convolve . c 
cc  -c  $ (DEFLAGS)  convolve.© 

r ©convolve. o:  reconvolve. c 
cc  -c  $(DEFLAGS)  reconvolve. c 

decompose.©:  decompose.© 
cc  -c  $(DEFLAGS)  decompose 

resonstruct .o:  reconstruct.© 
cc  -c  $ (DEFLAGS)  reconstruct.© 

nrutil.o :  nrutil.c 

cc  -c  $ (DEFLAGS)  nrutil.c 
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B.3  ID  System  Description 

The  following  is  a  list  of  functions  which  comprise  the  xuavel  program. 

1.  raain_wavel .  c  -  The  main  driver  program  for  wave. 

2.  loadsignal.c  -  A  routine  to  load  the  input  signal  Irom  an  ascii  data  file. 

3.  decompose! .  c  -  A  routine  that  controls  the  decomposition. 

4.  reconst ructl.c  -  A  routine  that  controls  the  reconstruction. 

5.  filters .  c  -  A  routine  that  provides  the  coefficient  values  of  the  h{n)  and  g(n)  response 
functions  (See  Appendix  B.2  for  listing). 

6.  convolve!. c  -  A  routine  that  controls  the  convolutions  for  decomposition. 

7.  reconvolve! .c -  A  routine  that  controls  the  convolutions  for  reconstruction. 

8.  spconvlv.c  -  A  routine  that  performs  the  spatial  convolutions  (See  Appendix  B.2  for 
listing). 

9.  makefile  -  A  makefile  that  is  used  to  compile  and  link  the  source  code  to  make  an 
e.xecutable  file. 

10.  j  smacros  .h  -  An  include  file  that  contains  macros  v'e  found  useful  in  our  programming 
environment.  This  file  must  be  present  in  the  directory  where  compilation  takes  place 
(See  Appendix  F.2  for  listing). 

11.  stewmath.h  -  An  include  file  containing  some  math  routines  specific  to  our  program. 
It  must  be  present  in  the  directory  where  complilation  takes  place  (See  Appendix  F.2 
for  listing). 

12.  nrutil.c  -  Source  code  that  contains  utility  macros  for  dynamic  memory  allocation 
(See  Appendix  F.2  for  listing). 

Typing  “make”  at  the  command  prompt  in  any  directory  with  all  of  the  above  files  present 
will  create  the  appropriate  object  code  and  an  executable  Tile  called  wavcl  that  may  be 
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executed  by  typing  “wavel”  at  the  command  prompt. 


The  intended  input  to  the  program  is  a  ID  signal  in  raw  ciscii  format  in  which  each 
sample  of  the  signal  is  stored  in  a  file,  one  number  per  line.  For  example,  a  signal  that  is 
512  samples  will  consist  of  512  lines  each  with  one  decimal  integer  number  representing  the 
value  of  that  sample.  The  output  of  the  program  are  ascii  files  representing  the  scale  and 
detail  wavelet  coefficients  in  floating  point  format.  For  an  in  depth  explanation  of  the  these 
coefficients  and  the  algorithm,  see  the  author’s  theses.  The  algorithm  implemented  in  this 
program  is  taken  from  a  paper  by  Stephan  Mallat.  The  paper  is  referenced  in  the  author’s 
theses.  Be  aware  that  we  found  some  printing  mistakes  in  the  paper  which  are  addressed 
in  our  theses.  The  program  was  developed  on  Sun  sparcstation  2’s.  But,  it  should  compile 
on  any  system  with  an  ansi  standard  C  compiler.  To  compile  the  program,  type 
at  the  command  prompt  with  the  default  directory  set  to  the  current  directory.  Object 
files  will  then  be  created  and  linked  into  an  executable  file  called  “wawei”.  Then  to  run 
the  program,  type  “toaue/”  at  the  command  prompt.  A  menu  should  appear  first  with  four 
choices.  If  not  done  at  the  command  line  entry  into  the  program,  a  file  must  be  loaded  from 
the  current  directory  before  either  decomposition  or  reconstruction  can  be  executed.  Once  a 
file  is  loaded  the  Decomposition  can  be  selected.  Then  the  Reconstruction  can  be  selected. 
The  Reconstruction  portion  depends  on  files  generated  by  the  Decomposition  portion.  But, 
it  is  not  necessary  to  run  the  Decomposition  during  the  same  session  as  the  Reconstruction 
as  long  as  the  Decompostion  was  run  in  a  prior  session  and  the  files  still  reside  in  the  current 
directory.  .An  alternate  way  to  start  the  program  is  to  type  “wauci”  followed  by  the  name 
of  the  input  file  and  its  size.  The  size  of  the  input  file  must  be  a  power  of  two.  At  this  time 
the  largest  file  used  is  a  512  sampled  signal.  It  is  possible  to  specify  the  path  to  an  input 
file  that  is  not  in  the  current  directory  either  relative  to  the  current  directory  or  absolutely 
from  the  root.  However,  if  this  is  done,  the  output  files  will  be  sent  to  that  same  directory. 
The  usage  of  xoavel  is  as  follows: 

command  prompt:  wavel  [infilename]  [size] 
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The  infilencime  and  size  are  optional  but  if  the  infilename  is  given  its  size  along  one 
dimension  of  the  power  of  two  sampled  signal  must  be  given  as  well.  Also,  only  one  file  may 
be  input  in  any  one  session. 

This  fact  is  not  obvious  from  the  program  menu,  so  be  aware.  If  you  try  to  select  the 
Load  signal  option  from  the  main  menu  after  you  have  already  loaded  a  file,  the  result  hcis  not 
been  fully  characterized.  In  other  words,  haven’t  tried  to  figure  out  what  would  happen. 
This  menu  option  is  provided  as  an  alternative  to  specifying  the  file  on  the  command  line. 

The  filters  available  are  presently  limited  to  the  some  of  the  Daubechies  wavelets  and 
the  Cubic  Spline  wavelet.  But  it  is  a  simple  process  to  add  new  filters  to  the  filters.c  program 
in  the  same  fasion  as  those  already  included.  To  generate  the  H  and  G  filters,  see  our  theses 
for  references. 


B.4  ID  Multiresolution  Wavelet  Analysis  Software 
B.f-l  Listing  of  MAIN-WAVEl.C 

/  :|c  4c  t  Jfc  4c  %  ^  ]|e  4c  4c  %  %  %  4c  3|e  4c  ;(c  4c  4c  34c  3(c  *  1 4c  t  ^  4c  *  4c  4c  4c  )|c  4: 3|c  t  ic  4c  4: ^  / 

/4e  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4^ 'ic  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/♦♦♦  WAVELET  ANALYZER  MAIN  PROGRAM  DRIVER  4c4c/ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 
/  4e  4c  4c  4c  4c  4c  4c  4c  4c  4c  %  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  *  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/4c  DATE:  09  April  91,  18  June  91,  16  August  91 
VERSION:  3.0 
NAME :  main- wave 1 . c 

DESCRIPTION:  This  program  performs  a  multiresolution  wavelet  analysis 
of  an  input  signal  with  a  wavelet  from  its  internal  library  chosen 
interactively  by  the  user.  It  handles  the  menu  interface  with  the 
user  and  drives  the  subroutines  that  take  input,  analyze,  produce 
output.  The  the  wavelet  decomposition  algorithm  is  a  pyramid  algorithm 
proposed  by  Stephan  Mallat  in  **A  Theory  for  Multiresolution  Signal 
Decomposition:  The  Wavelet  Representation*',  published  in  IEEE  Trans, 
on  Pattern  Anal,  and  Machine  Intel.  July  89.  The  algorithm  uses  a  pair 
of  mirror  filters  derived  from  the  scaling  function,  phi(x).  The  user 
may  enter  the  intended  input  signal  file  from  the  command  line  following 
the  calling  command  'wavel'  or  the  user  may  wait  to  be  prompted  for 
the  input  file  name  and  size  after  starting  the  program  with  the  same 
command . 

FILES  READ:  NONE  (A  subroutine  reads  the  input  files.) 

FILES  WRITTEN:  NONE  (Subroutines  write  out  the  saved  data  in  files.) 
HEADERS  USED:  <stdio.h>,  *' jsraacros .h*' ,  *'stewmath.h" 

CALLING  PROGRAMS:  NONE 

PROGRAMS  CALLED:  signalload. c,  reconstruct! .c,  decompose!. c 

AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing 

HISTORY:  Initial  Version;  adapted  from  phiv!.c  and  haarv!.c 
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Version  2.0  was  a  rewrite  to  change  the  basic  algorithm  from  using 
inner  products  to  using  the  Mallat  algorithm  referenced  above. 

Version  3.0  adapted  the  two  dimensional  program  for  one 
dimensional  signals. 

*/ 

/  4c  ]|C  ]|c  4c  *  4c  ;|c  ♦  ♦  4c  ♦  %  3|c  *  %  4c  3|C  t  1 4c  ^  ^  Jtc  ^  *  4c  4^  4c  4c  ♦  ♦  4c  *  *  ;|e  4c  *  *  *  *  4c ♦  ♦  *  *  ♦  4c :«( / 

/  4c4c4c4c4c4c4c4c4e4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4(4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c/ 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

h  DECLARATION  SECTION  */ 

/4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c^  4c/ 

#include  <stdio.h> 

#include  "jsmacros.h" 

#include  "stewmath.h** 

int^vector  loadsignal ( ) ; 

void  reconstruct ( ) ; 

void  decomposeO; 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/*  MAIN  PROGRAM  BODY  */ 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

void  main(argc,  argv) 
int  eirgc ; 
char  ♦argvD; 

{ 

/  4t  4e  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4^  4c  4c  4c  4c  / 

/*  initialize  variables  ♦/ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

int  selection; 

int^vector  signal,  *signalpo inter  =  ^signal; 
char  f  il  enaane  [64]  ; 

/4c  4c  4c  4c  4c  4C  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

/♦  load  image  to  be  analyzed  */ 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  *  4c  1:4c  4c/ 

if(argc  !=  3  &&  argc  !=  l){ 

printf ("Usage:  wavel  <filenaroe>  <#  of  Samples>\n") ; 
exit(O) ; 

} 

if (argc  ==  3){ 

signal  =  loadsignaKfilename,  argc,  argv); 

/4cpr int f ("returned  from  loadimage");  fflush(stdout);*/ 

> 

do  { 

/  ^  :^  4c  4ci(ci4c  ^  ^  3(c  4c  ^  ]|c  4c  4c  4c  4c  4c:^  ^  4t  Jtc  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/*  display  menu  ♦/ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4C  4c  4c  4c  4c  4c  4c  4c  4c  ♦  4c  4c  4c  4c  4c  4c  4c  4c  4  4c  4c  4c  4C  4c  4c  4c  / 

printf("\n\n  MAIN  MENU\n\n"); 

printfC*  1  =  Load  a  new  signal  from  disk.Xn"); 

printf("  2  =  Perform  Wavelet  Decomposition.Xn") ; 

printfC  3  =  Perform  Wavelet  Reconstruction. \n") ; 

printf("  4  =  Exit  Program. \n\n") ; 

printf("  Enter  an  integer  (1-4):"); 

scanfC'Xd",  ftselection) ; 

if  (selection  ==  4)  break;  /*  Quit  program  */ 

argc  =  1; 

if  (selection  ==  1)  signal  =  loadsignal (filename,  argc,  argv); 
else  if  (selection  ==  2)  decompose(signalpointer,  filename); 
else  if  (selection  ==  3)  reconstruct (signalpointer. 


filename) ; 
else  { 

printfC  \n\n  Just  enter  an  integer  from  1  to  4  and”); 
printf  (“press  return.  \n*'); 

} 

y  while  (selection  1=  4); 

/♦  THE  END  */ 

y 

B4-2  Listing  of  LOADSIGNAL.C 

/  4c  4t  jfe  :|t  4c  *  3|c  4c  ♦  *  *  3|c  If  *  4c  4c  ♦  4(  4c  ♦  ♦  ♦  ♦  4c  1 4c  J(c  :|C  ]|t  4c  :(c  3(c  4c  *  4c  ]|c  4c  4c  4c  4c  }«c  Jfc  4c  ^  *  4c  3(c  ;|e  4^  ♦  4c  *  *  t  «  4c  *  ♦  4c  4c  ♦  ♦  4c  :(C  t  / 

/4C4C4C  WAVELET  ANALYZER  LOADIMAGE  ROUTINE  4c4c/ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ♦  4c  4c  4c  4c  4c  4c  4c  4c  *  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  *  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 
/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/♦  DATE:  10  April  91,  16  August  91 
VERSION:  2.0 
NAME :  loadsignal . c 

DESCRIPTION:  This  routine  loads  an  signal  into  an  vector  whose  name  is 
specified  by  the  user  interactively.  It  is  intended  to  be  used  as  a 
subroutine  for  the  wavel  program. 

FILES  READ:  One  file  specified  by  the  user. 

FILES  WRITTEN:  NONE 

HEADERS  USED:  <stdio.h>,  <stdlib.h>,  “jsraacros.h” 

CALLING  PROGRAMS :  main-wave 1 . c 

PROGRAMS  CALLED :  nr ut il . c 

AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing 

HISTORY:  Version  1.1  was  chEinged  to  accept  square  matrices 
only. 

Version  2.0  changed  the  two  dimensional  program  to 
accept  only  one  dimensional  signals.  The  new 

executable  is  called  wavel  vs  wave2  for  the  old 
one. 

*/ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ♦  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c «  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ^  / 
/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c «  4c  4c «  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  cf  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c «  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ♦  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  ♦  4c  4c  cf  4c  4c  ♦4c  4c  3f  cf  4c  4c  4c  3f  4c  / 

/4C  DECLARATION  SECTION  ♦/ 

/  4c  4c  4c  4c  4c  4c  4c  ♦♦♦  4c  4c  4c  4c  ♦  4c  4c  4c  4c  ♦  4c  4c  4c  4c  4c  / 

#include  <stdio . h> 

#include  **jsmacros  .h" 

int  4c  i  vector  0; 

void  free_ivector() ; 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ♦  4c  4c  4c  ♦♦♦  4c  4c  4(  4c  4c  4c  / 

/♦  FUNCTION  BODY  */ 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ♦  4c  4c  ♦♦  4c  4c  4c  4c  4c  ♦  4c  4c  / 

in t_ vector  loadsignal (infilename,  argc,  argv) 
char  4ciixfilename[64] ; 
int  argc ; 
char  *argv [] ; 

{ 

/♦  4c  ♦  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ♦  4c  4c  ♦♦  4c  4c  ♦  4c  4c  ♦  / 

/4t  initialize  variables  */ 

/4t  4c  4c  4c  4c  4c  ♦  4c  4c  ♦4c  4c  4c  4c  4c  4c  ♦♦4c  4c  ♦  4c  4c«/ 

int  i,j; 

FILE  ♦infile; 
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int_ vector  signal; 

<c:tc](c^4c]|e]|c4c3|c*3|cic3(c4c4c9|c:tc/ 

/*  create  vector  to  hold  the  incoming  signal  ♦/ 
if(argc  ==  1){ 

printf (**\n\n  Input  filename  of  singal  to  be  analyzed:'*); 
scanf  ("Xs",  inf  ilenaine)  ; 

printf ("\n\n  Input  the  number  of  Samples  in  the  signal"); 
printf ("\n  data  file.  (The  number  must  a  power  of  2):"); 
scanfCy.d",  &signal.length> ; 

else  { 

sprintf (inf ilename,  "•/s",  argv[l]); 
sscanf (argv [2] ,  "Xd" ,  ^signal . length) ; 

signal. vector  =  ivectord,  s ignal. length)  ; 

/  :(c  4c  *  *  4e  4c  *  sfc «  ♦  ♦  ♦  4c  ^  ]|c  Ic «  *  ♦  ♦  *  ^  « ](c  4c  *  4c  #  3(c  3(c  4c  :|C  4c  4c  / 

/♦  load  signal  to  be  analyzed  */ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4e  4c  4c  4e  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 


OPEN^FILE  (infile,  infilename,  "The  wavelet  analyzer"); 
loopli (signal . length) 

fscanf (inf ile,"y*d",  &signal.vector[i]) ; 

CLOSE_FILE  (i,  infilename,  "The  Wavelet  analyzer",  infile) 
printf  ("\n  4c4c  The  signal  *As  has  been  loaded  for  processing.  ♦*\n\n\n", 
infilename) ; 
return  signal; 


B.4.3  Listing  of  DECOMPOSE l.C 


/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  %  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ♦  4c  4c  4c  4c  4c  4:  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 
/:^^4t  4c  4c  4c  4c  4c  4c  4c%4c  4c  4c  4c  4c  4c  4c  3^  4c  4c  4c  4c  4c  4c  4c  4c  4c%4c4c*4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c4c3^*4c4c4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

/*♦*  WAVELET  DECOMPOSITION  SUBROUTINE  ♦4c/ 

/*  DATE:  19  June  91,  16  August  91 
VERSION:  2.0 
NAME:  decompose!. c 

DESCRIPTION:  This  subroutine  is  intended  to  be  part  of  a  Wavelet 
analyzing  program  called  "wavel".  The  algorithm  used  is  discussed  in 
the  description  of  the  main  driver  module  called  "main- wavel. c". 

Data  is  passed  by  reference  from  the  main  driver  module.  The  data  is 
in  ascii  format  arranged  in  a  vector  whose  dimension  is  a 
power  of  2.  This  requirement  has  not  only  made  programming  more 
convenient  but  is  required  by  the  convolution  routine  from  Niunerical 
Recipies  in  C:  The  Art  of  Scientific  Computing. 

FILES  READ:  NONE  (Passed  by  reference  from  the  caller.) 

FILES  WRITTEN:  Two  coefficient  files  at  each  level  of  analysis. 

The  file  names  begin  with  the  input  signal  filename 
and  end  with  an  extension  of  the  form  ".nX"  where 
n  is  an  integer  that  represents  the  level,  X  is  one 
of  the  letters  *c'  or  to  represent  phi 
or  psi  coefficients  respectively. 

HEADERS  USED:  <stdio.h>,  "jsmacros.h" 

CALLING  PROGRAMS:  main-wavel.c 

PROGRAMS  CALLED:  convolvel.c,  filters. c,  nrutil.c 

AUTHOR:  Steve  Smiley  aind  J.  Stewart  Laing 
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HISTORY:  Initial  Version. 

Version  2.0  no  longer  uses  the  Fourier  domain  filtering.  Now 
only  spatial  convolution  is  done.  Also,  this  version  was 
adapted  from  the  two  dimensional  version  1.0. 

*/ 

^4c4c%](c34ct;tc3^4c*3te4e9|c^3tc:tc3(c:4ci(c:tc:tcict4(^**4:9((9te3(t;(c>f  / 

/  4c  *  t  ](c  4c  t  %  :tc  4c  1 ^  *  3(C  4(  4t  *  *  3(t  ;|C  t  9|c  >!(  / 

/♦  DECLARATION  SECTION  */ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ifc  1 4c  3tc  4c  4c  4c  4c  4c  4c  4c  3(c  4c  / 

#include  <stdio.h> 

#include  "jsmacros.h" 

void  convolveO ; 

void  filtersO; 

float  4cvectorO ; 

void  f ree^vector ( ) ; 

int  *ivector(); 

!  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

/*  MAIN  PROGRAM  BODY  */ 

/  4c  4c  4c  4c  4c  %  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4;  4c  4c  4c  4c  4c  / 

void  decompose (signalpo inter,  infilename) 
int^vector  4csignalpointer; 
ch2Lr  inf  ilename  []  ; 

{ 


/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/4c  declare  variables  4c/ 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 


int 

float^vector 

float_vector 

float^vector 

float^vector 

float_vector 

float^vector 

float^vector 

float_vector 

FILE 

char 

int^vector 


i,  j,  k,  maxlevel,  wavelet _type; 

h_of_n,  h_of_nflipo,  g_of.n,  g_of_nflipo,  phi,  phiflipo; 
phiflipc,  *phiflipcpointer  =  ftphiflipc; 

*h_of_npointer  =  &h_of_n,  *h_of_nflipopointer  =  *h_of ^nflipo; 
♦g»of„npointer  =  &g_of_n,  *g_of_nflipopointer  =  &g_of_nf lipo; 
4cphipointer  =  ftphi,  4cphiflipopointer  =  ftphiflipo; 
c.coef,  d_coef; 

’►c_coefpointer=  ftc^coef ,*d_coefpointer=  ftd^coef; 
temp,  4ctemppointer  =  fttemp; 

4coutf  ile; 

filename [64] ,  wave_code[64] ; 
newsignal,  ♦newsignalpointer  =  Anewsignal; 


/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ^  4c  / 

/4c  allocate  memory  ♦/ 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 


temp. length  =  signalpointer->length; 

temp. vector  =  vectorCl,  t emp. length) ; 

loopli (temp. length)  ».emp. vector [i]  =  0.0; 

c„coef .length  =  signalpointer">length; 

c_coef  .vector  =  vectord,  c_coef  .length) ; 

loopli(c_coef .length)  c.coef .vector [i]  =  0.0; 

d^coef .length  =  signalpointer->length; 

d^coef  .vector  =  vectord,  d.coef  .length) ; 

loopli(d_coef .length)  d^coef. vector [i]  =  0.0; 

newsignal. length  =  signalpointer->length; 

newsignal. vector  =  ivectorCl,  newsignal. length) ; 

loopliCnewsignal. length)  newsignal. vector [i]  =  0; 

h_of_n. vector  =  vectorCl ,signalpointer->length*2) ; 

loopli(signalpointer->length*2)  h_of_n. vector [i]  =  0.0; 

g_of_n. vector  =  vectord ,signalpointer“>length*2) ; 

loopli(signalpointer“>length*2)  g»of_n. vector [i]  =  0.0; 

h.of^nflipo. vector  =  vectord ,signalpointer“>l€ngth*2) ; 

loopli(signalpointer->length*2)  h^of^nflipo. vector [i]  =  0.0; 

g.of.nflipo.  vector  =  vectord  , signalpo inter-*>length*2) ; 
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loopli(signalpointer“>length*2)  g^of^nflipo. vector [ij  =  0,0; 
phi. vector  =  vector(l,2*signalpointer->length) ; 
loopli(signalpointer-->length^2)  phi  .vector  [i]  =  0.0; 
phiflipo  vector  =  vector (l,2*signalpointer->length); 
loopli(signalpointer->length*2)  phiflipo. vector [i]  =  0.0; 
phiflipc.  vector  =  vector(l  ,2’*‘signalpointer->length) ; 
loopli(signalpointer->length’»'2)  phiflipc. vector [i]  =  0.0; 

/jfc  ;4c  4c  9tc  ¥  ](c  *  9tc  %  3|c  :(c  :4c  %  ]|c  %  1|C  :(c  1 4c  Ifc  :(c  4e  ^ 

/*  display  menu  ♦/ 

/ 4c4c4c4c4c%4e4c4c4c4c4c4  4c4c:4c34c4c4e4c4::4(4(4e3((3f(ti4(4c%*^%%34c4c/ 

priiitf("\n\n  DECOMPOSITION  MENU\n\n"); 
printfC*'  1  =  Piece-wise  Constant .  (N/A)\n'*)  ; 
printf("  2  =  Piece-wise  Linear.  (N/A)\n*') ; 

printfC'*  3  =  Daubechies  N=2.\n") ; 

printfC"  4  =  Daubechies  N=3,\n"); 

printfC**  5  =  Daubechies  N=4.\n"); 

printfC"  6  =  Daubechies  N=5.\n"); 

printfC**  7  =  Daubechies  N=6.\n"); 

printfC**  8  =  Daubechies  N=7.\n") ; 

printfC**  9  =  Daubechies  N=8.\n"); 

printfC**  10  =  Daubechies  N=9.\n"); 

printfC**  11  =  Daubechies  N=10.\n**) ; 

printfC*'  12  =  Splines. \n") ; 

printfC**  13  =  Morlet .  CN/A)\n")  ; 

printfC**\n  Enter  an  integer  1-13:  "); 

scanf  C*'y.d** ,  ftwavelet^type)  ; 

/♦  error  handling  for  invalid  input  */ 

if  Cwavelet^type  <  3  | I  wavelet.type  >  13)  { 

printfC **\nyou  have  chosen  an  Invalid  Wavelet  type  or"); 
printfC **\nthis  type  is  not  currently  available."); 

}  /♦  end  if  ♦/ 
else  { 

/♦  Set  wave^code  for  use  in  output  filenames.  ♦/ 

if  Cwavelet.type  ==  3)  sprintf Cwave.code,  "db2"); 
if  Cwavelet^type  ==  4)  sprintf Cwave^code,  "db3"); 
if  Cwavelet^type  ==  5)  sprintf Cwave^code,  "db4"); 
if  Cwaveletitype  ==  6)  sprintf Cwave_code,  "dbS"); 
if  Cwavelet.type  ==  7)  sprintf Cwave.code,  "db6"); 
if  Cwaveletitype  ==  8)  sprintf Cwave.code,  "db7"); 
if  Cwaveletitype  ==  9)  sprintf CwavCiCode,  "db8"); 
if  Cwaveletitype  ==  10)  sprintf CwaveiCode,  "db9"); 
if  Cwaveletitype  ==  11)  sprintf CwaveiCode,  "dbO"); 
if  Cwaveletitype  ==  12)  sprintf CwavCiCode,  "spl"); 

4c «  4c4c  ♦  4c  4c  4c  1 4c  94c  ♦♦  34c «  *  3^  ♦♦  4c «  *  ♦/ 

/♦  Generate  Phi  and  Filters  ♦/ 

/  4c  4c  4c  4c  4c  4c  4c  3^  4c  4c  4c  4c  3^  ♦  4c  4c  4c «  4c  4c  1 3^  1 4c  4c  4c  4c «  / 

filters  (waveletitype.hiOf iUpointer ,giOf _npointer .phipointer) ; 
f lipo(phipointer ,  phif lipopointer) ; 

hiOfinflipopointer  =  hiOf inpointer ; 
g-of inf lipopointer  =  giOf inpointer; 

loopli(signalpointer->length) 

temppointer“>vectorCi]  =  (float)signalpointer->vector[i] ; 

/««*4c4c3^*4c4c4c34t4c*4c3»'#*4c4t*4c4c4c4:^#3^*:^:^4cir:#«t*«*4c3^t*««4c4r3^44c4c4*«**«*4:^4c3»««:^/ 
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/*  Call  convolution  routine  and  save  the  coefficient  vectors  for  */ 

/♦  each  level  of  analysis.  ♦/ 

maxlevel  =  L0G2(signalpointer“>length) ;  /*  Calculate  the  highest  level  */ 
k=l; 

loopk(maxlevel){ 

if  (temp. length  >=  h_of_n. length) {  /♦  signal  has  to  be  bigger  than  filter  ♦/ 
printf ('*\nPerforming  convolution  with  filters,  level**); 
printf(**7,d...**,  k+1); 

convolve(temppointer ,  h_of_nflipopo inter,  g_of_nflipopointer, 
c^coef pointer ,  d^coefpointer) ; 

sprintf (filename,  *'5is.*/,d.c.7s'*,  inf ilename,  k+1,  wave_code); 

CREATE_FILE(outf ile,  filename,  **The  Wavelet  Analyzer**) 

loopl i ( c.coef .  length)  f printf  ( outf il e ,  **y,f \n*' ,  c^coef . vector [i]  ) ; 

CLOSE_FILE(i,  filename,  "The  Wavelet  Analyzer**,  outfile) 

sprintf  (filename,  **y,s.y.d.d.y,s** ,  infilename,  k+1  ,wave„code) ; 
CREATE_FILE(outf ile,  filename,  '*The  Wavelet  Analyzer*') 
loopli(d_coef  .length)fprintf  (outf  ile,"y.f  \n**  ,d_coef  .vector  [i]  ) ; 
CLOSE_FILE(i,  filename,  "The  Wavelet  Analyzer**,  outfile) 
temp. length  =  c.coef . length ; 

loopl i (temp. length)  temp. vector [i]  =  c_coef. vector [i] ; 

}  /♦  end  if  ♦/ 

}  /♦  end  loop  */ 

}  /*  end  else  ♦/ 

/*  free  memory  ♦/ 

free_vector(terop. vector,  1,  temp. length) ; 
free.vector(c_coef .vector,  1,  c_coef .length) ; 
frce_vector(d_coef .vector,  1,  d.coef .length) ; 
f ree_vector (h_of . vector , 1 , signalpointer->length*2) ; 
f ree^vector (g_of ^n . vector , 1 , signalpointer->length*2) ; 
f rec^vector (phi . vector , 1 , signalpoint€r“>length»2) ; 
free_vector(phiflipo. vector, 1 ,signalpointer‘->length*2) ; 
free_vector(phiflipc. vector , 1 ,signalpointer->length*2) ; 

/♦  THE  END  ♦/ 

} 

B,4J,  Listing  of  RECONSTR  UCTl .  C 


/♦♦♦ 


WAVELET  RECONSTRUCTION  SUBROUTINE 


/♦  DATE:  2  July  91,  16  August  91 
VERSION:  3.0 


NAME:  reconstruct! . c 

DESCRIPTION:  This  subroutine  is  intended  to  be  part  of  a  Wavelet 
analyzing  program  called  "wavel".  The  algorithm  used  is  discussed  in 
the  description  of  the  main  driver  module  called  **main- wavel .c. 

It  controls  the  portion  of  the  program  that  reconstructs  a  previously 
decomposed  signal  using  Mallat's  multiresolution  algorithm  referenced 
in  the  description  of  the  calling  program,  **main-wavel.c**. 

FILES  READ:  Four  coefficient  files  at  each  level  of  analysis. 

The  file  names  begin  with  the  input  signal  filename 
and  end  with  an  extension  of  the  form  ".nX"  where 
n  is  an  integer  that  represents  the  level,  X  is  one  of 
the  letters  *c*  or  'd'  to  represent  phi  or  psi  coef¬ 
ficients  respectively. 
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FILES  WRITTEN;  One  file  with  the  extension  **.rec". 

HEADERS  USED:  <stdio.h>,  “jsmacros.h" 

CALLING  PROGRAMS:  main-wavel -c 

PROGRAMS  CALLED:  filters. c,  reconvolvel .c,  spconvlv.c,  nrutil.c 
AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing 
HISTORY:  Initial  Version. 

Version  2.0  is  adapted  to  use  the  spatial  correlation  and  not 
the  Fourier  convolution. 

Version  3.0  adapted  the  two  dimensional  program  to  handle  only 
1  dimensional  signals.  The  command  is  wavel  vs  wave2. 


♦/ 


/♦  DECLARATION  SECTION  ♦/ 


#include  <stdio.h> 
#include  ** j  smacros .  h” 


void  filtersO; 
void  reconvolveC ) ; 
float  ♦vectorO; 

VO id  free_ vector ( ) ; 
int  ♦ivectorO; 

void  frce_ivector() ; 

/♦  MAIN  PROGRAM  BODY  ♦/ 

void  reconstruct  (signalpo inter ,  inf ilename) 
int  .vector  ♦signalpo  inter; 
char  inf  ilename  □  ; 


/♦  declare  variables  ♦/ 


int 

float.vector 

float.vector 

float.vector 

float.vector 

float.vector 

float.vector 

float.vector 

float. vector 

float. vector 

float .vector 

float.vector 

int  vector 

FILE 

char 

float 


i.  jt  h,  1,  maxlevel,  wavelet.typc ; 
h.of.n,  h.of.nflipo,  h.of.nflipc,  g.of.n; 
g-of.nflipo,  g.of.nflipc,  phi,  phiflipc; 
♦h.of.npointer  =  Ah.of.n,  ♦g.of.npointer  =  A:g_of_n; 
♦h.of.nflipopointer  =  th.of.nflipo; 
♦g.of.nflipopointer  =  tg.of.nflipo; 
♦h.of.r.flipcpointer  =  Jkh.of.nfiipc; 
♦g-Of.nflipcpointer  =  tg.of.aflipc; 

♦phipointcr  =  tphi,  ♦phiflipepo inter  =  Aphiflipc; 
c.cocf,  d.coef; 

♦c.coefpointer=  tc.coef .♦d. cocfpointer=  td.coef; 
temp,  ♦temppointer  =  ttemp; 
newsignal,  ♦newsignalpointer  =  tnewsignal; 
♦outfile,  ♦infile; 
filename [64] ,  wav€.code[64] ; 
holder [64] ; 


/♦  allocate  memory  ♦/ 


temp,  length  =  signalpointsr-‘>l€ngth; 
temp. vector  =  vectord,  temp. length)  ; 
looplKtenp. length)  temp. vector [i]  =  0.0; 
news ignal. length  =  signaipointer->length; 
newsignal .  vector  =  ivectord,  news  ignal.  length) ; 


loopiiCiiewsignal.leiigth)  newsignal. vector [i]  =  0.0; 

c. coef .length  =  5ignalpointer->length; 
c^coef.  vector  =  vectord,  c^coef  .length)  ; 
loopli(c_coef .length)  c_coef .vector [i]  =  0.0; 

d. coef . length  =  signalpointer->length; 
d^coef. vector  =  vectord,  d^coef  .length)  ; 
loopli(d_coef .length)  d.coef .vector [i]  =  0.0; 

h_of_n. vector  =  vectord ,signalpointer->length*2) ; 
loopli(si£nalpointer-->length*2)  h_o^_n. vector [i]  =  0.0; 
g-Of_n.  vector  =  vector (1, signalpo inter->length*r.)  ; 
loopli(signalpointer“>length*2)  g_of_n. vector [ij  -  0.0; 
phi. vector  =  vector d,2^signalpointer->length); 
loopli(signalpointer->length*2)  phi. vector [i]  =  0.0; 
phiflipc. vector  =  vector (1, 2*signalpoint er->length) ; 
loopli(signalpointer->length*2)  phiflipc. vector [i]  =  0.0; 
h^of^nflipo. vector  =  vectord ,signalpointer->length*2) ; 
loopli(signalpointer“>length*2)  h_of_nflipo. vector [i]  =  0.0 
g-.of_nflipo. vector  =  vector ( 1, signalpoint er->length*2)  ; 
loopli(signalpointer->length*2)  g_of_nflipo. vector [i]  =0.0 
h.of.nflipc. vector  =  vectord ,signalpointer->length*2) ; 
loopli(signalpointer‘->length*2)  h„of_nflipc. vector [ir  -0.0 
g.-of_nflipc. vector  =  vectord,signalpointer->lengthv2)  ; 
loopli(signaipointer“>length*2)  g^of.nflipc. vector [i]  =0.0 

/]|c4c4c)|e4e:(c](cic4e%  9^40(1  4c  4c 

/*  display  menu  ♦/ 

/  ♦♦♦♦4c4t4c4c4c4c4«4e4t4c5*c4c%4c4c4c4c4c*4c4'++4c+%4c4c4c4c4c4c/ 


printf  (*'\n\n 

RECONSTRUCTION  HENU\n\n"); 

printf  O' 

1 

= 

Piece-wise  Constant 

(N/A)\n") 

printf  O' 

2 

= 

Piece-wise  Linear . (N/A)\n”) ; 

printf  O' 

3 

= 

Daubechies  N=2.\n”) 

printf (” 

4 

= 

Daubechies  N=3.\n”) 

printf  O' 

5 

= 

Daubechies  N=4.\n”) 

printf  O' 

6 

= 

Daubechies  N=5.\n'*) 

printf  O' 

7 

= 

Daubechies  N=6.\n”) 

printf  0* 

8 

Daubechies  N=7.\n”) 

printf  0* 

9 

= 

Daubechies  N=8.\n”) 

printf  0* 

10 

Daubechies  N=9.\n”); 

printf  O' 

11 

= 

Daubechies  N=10.\n”); 

printf (” 

12 

= 

Splines. \n") ; 

printf  (** 

13 

= 

Morlet.(N/A)\n”); 

printf ("  Enter 

an 

integer  (1-13):”); 

scanf  (*’*/,d" ,  &wavelet_type) ; 


if  (wavelet^type  <  1  I  I  wavelet _type  >  13  ){ 

printf (*'\nYou  have  chosen  an  invalid  wavelet  or”); 
printf("\nit  is  .lot  currently  available.”); 

} 

else  { 


j  4c4c4c4c4c4c4c4c4(4c4c4c4c*4c4c4c4c4c4c4c4c4c4c5c4c4c^4c4c4c4c4c4c4c4c4(4c4c4c4c4c4c4c4c/ 

/4c  Set  value  of  wave.code  for  input  filename  ♦/ 

/  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  1 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4^  4c  4c  4c  4(  4c  4c  ♦  4c  4c  ♦  4c  4c  4c  4(  4c  4c  4c  4c  4c/ 

if  (wavelet^type  ==  3)  sprintf (wave^code,  "db2”); 
if  (wavelet^type  ==  4)  sprintf (wave.code,  ”db3"); 
if  (wavelet_type  ==  5)  sprintf (wave_code,  *'db4”); 
if  (wavelet.type  ==  6)  sprintf (wave_code,  ”db5”); 
if  (wavelet_type  ==  7)  sprintf (wave^code,  ”db6”); 
if  (wavelet^type  ==  8)  sprintf (wave. code,  ”db7”); 
if  (wavelet .type  ==  9)  sprintf (wave.code,  ”db8”); 
if  (wavelet.type  ==  10)  sprintf (wave.code,  ”db9”); 
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if  (wavelet _type  ==  11)  sprintf (wave_code,  "dbO*'); 
if  (wavelet^type  ==  12)  sprintf (wave^code ,  *‘spl*'); 

/  3tc  #  4c  :|e  3|e  %  4c  3(c  ic  4c  ]|(  4c  %  itc  1 1  / 

/♦  Generate  Phi  and  Filters  */ 

/  4c  4c  4c  4c  4c  4t  4C  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  *  4c  4c  4c  4c  4c  4c  4c  / 

f liters (wavelet_type,h_of_npointer,g_of_npointer,phipointer) ; 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/♦  flip  the  filters  ♦/ 

1 4e 4c 4e 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c tcf  4c4c4c4c4c4c4c4c4c4:4c*4c4c4:#4c4c4c4c4c4c/ 

loopl  j  (h_of  _npointer‘->length) 

holder [h_of_npointer->length  +1  -j]=  h_of_npointer->vector[j] ; 
loopl j (h_of _npointer“>length) 

h_of_npointer->vector  [j]  =  holderCj]; 
loopl j (g_of _npointer->length) 

holder [g_of_npointer->length  +1  -j]=  g_of_npointer“>vector  [j] ; 
loopl j (g_of _npointer”>length) 

g-of„npointer*->vectorCj3  =  holderCj]; 

li^of  _nflipcpo  inter  =  h_of  .npointer ; 
g_of _nf lipcpointer=  g_of ^npointer ; 


j  4;  4c  4c  4(  4c  4c  4C  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

/*  Call  reconvolution  routine  to  reconstruct  from  coarsest  phi  ♦/ 

/♦  coefficients  and  all  of  the  psi  coefficients.  */ 

/  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  cAc  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c/ 

maxlevcl  =  L0G2(signalpointer->length) ; /♦Calculate  the  highest  level*/ 
temp. length  =  1; 

do  {  /*  make  sure  signal  is  bigger  than  filter  ♦/ 

temp. length  *=2; 

— maxlevel; 

}  while  (temp. length  <  h_of_n.leiigth/2) ; 

c.coef .length  =  temp. length; 
d^coef .length  =  temp. length; 

1=1; 

f or (k=maxlevel ; k>0 ; — k) { 
if(l  ==  1){ 

sprintf  (filename,  *'y,s.7,d.c.*/,s*',  infilename,  k,wave_code) ; 
OPEN_FILE(infile,  filename,  ’’The  Wavelet  Analyzer'*) 
loopl i ( c_coef . length) 

fscanf (inf ile,  "‘/fXn",  &c_coef .vector [i] ) ; 

CLOSE_FILE(i,  filename,  "The  Wavelet  Analyzer",  inf ile) 

]  =  0; 

}  /*  end  if  */ 
else  { 

c^coef .length  =  temp. length; 

loopl i(c_coef .length)  c_coef .vector [i]  =  temp. vector [i] ; 

}  /♦  end  else  ♦/ 

sprintf  (filename,  "y,s.7.d.d.y,s",  infilename,  k,wave_code) ; 
0PEN_FILE(inf ile,  filename,  "The  Wavelet  Analyzer") 
loopli(d_coef .length) 

fscanf  (inf  ile,  "y,f\n",  &d_coef  .vector  [i]  )  ; 

CL0SE„FILE(i.  filename,  "The  Wavelet  Analyzer",  infile) 

printf  ("\nPerf  orming  reconvolution  with  filters,  level  y,d...",  k) ; 
reconvolve (temppointer,  h_of _nflipcpointer,  g_of_nflipcpointer , 
c^coef pointer ,  d_coef pointer) ; 

if (wavelet_type  ==  12) 
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loopli( temp. length)  temp. vector [i]  2; 

sprintf  (f  il  3name,  ''y*s  .y,d. c.y.s.rec” ,  inf  ilenarae,k-l,wave_code)  ; 
CREATE_FILE(outf ile,  filename,  "The  Wavelet  Analyzer") 
looplKterap.  length) 

fprintf  (outf  ile,  "y*f\n",  temp,  vector  [i]  )  ; 

CLOJJ_FILE(i,  filename,  "The  Wavelet  Analyzer",  outf ile) 

}  /*  end  loop  */ 

}  /*  end  else  ♦/ 

/*  free  memory  */ 

free_vector(temp. vector ,  1,  temp. length) ; 
free_ivector(newsignal. vector,  1,  newsignal.length) ; 
free_vector(c_coef .vector,  1,  c_coef .length) ; 
free_vector(d_coef .vector,  1,  d^coef .length) ; 

/*  THE  END  */ 

} 

Listing  of  FILTERS,  C  (See  Appendix  B.2) 

B,4*6  Listing  of  CONVOLVEl.C 

/*♦♦  WAVELET  CONVOLUTION  SUBROUTINE  ^^1 

/4c  9|c  4c  I(e  3(c  4c  4^  *  *  4c  3tc  :tc  3^  4c  3|c  4c  ♦  4c  4c  *  1c  4c  ♦  ♦  *  *  4c  *  3tc  ♦  4c  *  *  *  3^*  *  4c  ♦  4c  ♦  4c  ♦  %  4c*  :|c  %  :tc  Jtc  :|C  t  / 

/*  DATE:  19  June  91,  16  August  91 
VERSION:  2.0 
NAME:  convolvel.c 

DESCRIPTION:  This  subroutine  is  intended  to  be  part  of  a  Wavelet 
analyzing  program  called  "wavel".  The  algorithm  used  is  discussed  in 
the  description  of  the  main  driver  module  called  "main^-wavel .  c" . 

Data  is  passed  by  reference  from  the  decomposition  subroutine.  Data  is 
in  ascii  format  arranged  in  a  vector  whose  dimension  is  a 
power  of  2.  This  requirement  has  not  only  made  programming  more 
convenient  but  is  required  by  the  convolution  routine  from  Numerical 
Recipies  in  C:  The  Art  of  Scientific  Computing. 

FILES  READ:  NONE  (Passed  by  reference  from  the  caller.) 

FILES  WRITTEN:  (Passed  by  reference  back  to  the  caller.) 

HEADERS  USED:  <stdio.h>,  "jsmacros.h" 

CALLING  PROGRAMS:  decomposel.c 
PROGRAMS  CALLED:  spconvlv.c,  nrutil.c 
AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing 
HISTORY:  Initial  Version. 

Version  2.0  was  adapted  from  the  two  dimensional  version  1.0 
to  handle  one  dimensional  signals.  It  does  not  use  the  Fourier 
space  filtering  indicated  above. 

4c/ 

/4(4c4;4c4c4c:^  ^4c4c4c4c4c4c4c4c4:4c4c4c4c4c4c4c4c4c4c4(4(4c4c4c4c^4c4c*4c4c4c4c4c*4c4c4:4c4c4c4c4c4c4c*4c4c4c4c4c4c4c4c4c4c4c4(4c4c4c4c4c4c4c4c4c / 

/4c4t4c*4c4c4c4c4c4c*4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c*4c4c4c4c4c4:4c4c4c4c*4c4(*4c4c4(4c4c4c4c4(4:4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4(/ 

/*  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c*4c  4c  4c/ 

/4c  DECLARATION  SECTION  4c/ 

/*  4c  4c  4e  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

#include  <stdio.h> 

#include  "jsmacros.h" 

float  4c  vector  0; 

void  free^vectorO ; 
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void  spconvlvO; 

/♦  MAIN  PROGRAM  BODY  ♦/ 

/  ](C  ]f:  :(c  %  ;(c  3^  ]tc  :tc  9|C  3|c)|c  :|e  jfc  ^  1 * ’K  *  / 

void  convolve (datainpointer,  h^of.npointer  ,g^of_npointer ,  c.coef pointer, 
d.coefpointer) 
float_vector  *datainpointer; 
float^vector  *h_of ^npointer,  ♦g.of^npointer ; 
float  vector  tc^coefpointer ,*d„coefpoin+  er; 

{ 

/3(C  Jfc  Jfctc  3(C  %  4c  **  1 */ 

/♦  declare  variables  ♦/ 

/  3|c  :|t  )(c  4c  4c  ♦  4c  ♦  ♦  4c  4c  *  4c  4c  *  *  4c  *  4c  4c  4c  *  ♦  4(  / 

int  i ,  j ; 

float^vector  vect in, vectout, response; 
f loat_vector  t  emp ; 

FILE  4coutfile; 
char  filename [64] ; 

/  4c  4c  4c  4c  4: 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/4c  allocate  memory  4c/ 

/4c  4e  4c  4c  4c  4c  4e  4c  4c  4c  4c  4c  4t  4c  4(  4c  4c  4c  4c  4c/ 

temp. vector  =  vectord,  datainpointer‘->length) ; 
loopli(datainpointer->length)  temp. vector [i]  =  0.0; 
vectin.  vector  =  vector (1 ,24cdatainpointer“>length) ; 
loopli(24cdatainpointer->length)  vectin. vector [i]  =  0.0; 
vectout  .vector  =  vector(l  ,44'datainpointer->length)  ; 
loopli(datainpointer->length4c4)  vectout  .vector  [i]  =0.0; 
response  .vector  =  vectord  ,24'datainpointer->length) ; 
loopli(datainpointer“>length4c2)  response. vectord]  =  0.0; 

vectin.  length  =  24cdatainpointer->length; 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

/4c  perform  convolution  4c/ 

/  4c  4c  4c  4c  4c  4t  4c  4c  4c  4c  4c  4c  4c  4c  4c  4e  ♦  4c  4c  4c  4c  4c  4e  / 

printf (*'\nConvovling  signal  with  h(-n)...'*); 
loopl  j  (datainpointer“>length4c2) 

response. vector  [j]  =  h„of_npointer->vectcr[j] ; 
loopl j (datainpointer">length) 

vectin. vector  [j]  =  datainpointer->vector [j] ; 
spconvlv( vect in . vector , vectin . length  ^response . vector , 
h.of _npointer->length , 1 , vectout . vector) ; 
loopl j (datainpointer“>length/2) 

c_coefpointer“>vector[j]  =  vectout  .vector  [24c  j]  ; 

/4c  downsample  by  select iny  even  cols  4c/ 

printf (*'\nConvovling  signal  with  g(-n)..."); 
loopl j (datainpointer">length*2) 

response. vector  [j]  =  g_of_npointer->vector [j] ; 
loopl j (datainpointer">length) 

vectin. vector  [j]  =  datainpointer->vector [j] ; 
spconvlv (vectin . vector , vectin . length , response . vector , 
g-of _npointer“>length , 1 .vectout . vector) ; 
loopl j (datainpointer">length/2) 

d^cc  jfpointer->vector  [j]  =  vectout  .vector  [24c  j]  ; 

/4c  reset  signal  indeoes.  4c/ 

c_coefpointer">length  =  datainpointer“>length/2; 
d_coefpointer->length  =  datainpointer“>length/2; 

/4c  free  memory  */ 
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f ree.vector (temp. vector ,  1,  datainpointer“>length) ; 
free.vector  (vectin. vector, 1 ,2*datainpointer">length) ; 
free.vector  (vectout  .vector,  1 ,4*datainpoJinter“->length) ; 
free.vector  (response,  vector ,  1 ,2’*'datainpoiiiter->length) ; 

/*  THE  END  ♦/ 

} 

B.4.7  Listing  of  RECONVOLVELC 

/  3tc  4c  4: 4c  :(c  %  jfc  %  %  ]fc  :(c  :tc  :4c  :tc  3fc  3fc  3|c  jfc  ^  #  3tc  t  %  :tc  3|c  :fc  :fe  %  3(e  ]|e  ^  3|c  3(c  34c 3|c  ]fc  :fc  s(c  }fc  :|c  }(e  #  1 4:  ]|c  :fc  *  4c  *  *  *  *  *  ♦  *  4c  *  3^  *  / 

/♦*4c  WAVELET  RECONVOLUTION  SUBROUTINE  *4c/ 

j  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4e  4c  4=  4c  4' 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4e  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 
/  4e  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  4c  4c  4c  4c  4c  1 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/4'  DATE:  2  July  91,  16  August  91 
VERSION:  2.0 
NAME:  reconvolvel . c 

DESCRIPTION:  This  subroutine  is  intended  to  be  part  of  a  Wavelet 
analyzing  program  called  “wavel".  The  algorithm  used  is  referenced  in 
the  description  of  the  main  driver  module  called  "main-wavel . c" . 

Data  is  passed  by  reference  from  the  reconstruction  subroutine.  Data  is 
in  ascii  format  arremged  in  a  vector  whose  dimension  is  a 
power  of  2.  This  requirement  has  not  only  made  programming  more 
convenient  but  is  required  by  the  convolution  routine  from  Numeric 
Recipies  in  C:  The  Art  of  Scientific  Computing. 

FILES  READ:  NONE  (Passed  by  reference  from  the  caller.) 

FILES  WRITTEN:  NONE  (Passed  by  reference  back  to  the  caller. 

HEADERS  USED:  <stdio.h>,  “jsmacros.h" 

CALLING  PROGRAMS:  reconstruct! . c 
PROGRAMS  CALLED:  spconvlv.c,  nrutil.c 
AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing 
HISTORY:  Initial  Version. 

Version  2.0  adapted  from  1.0  allows  only  one  dimensional 
signals  to  be  decomposed.  It  does  not  use  Fourier  filtering. 

*/ 

/:(c:1e:|c:(c4c4c4‘4(t4c4c»  ♦  - + :i«':|ct4c4:4c4c4c4c4c4c4e4c4c4c4c4c4c4c4c4c4c4E4c4e4:4c4c*4e4c4c4c4:4c4c4c4c4c4E4(4(4^4:4(4c4e**/ 
/ :(c^4e:(c3(ct4e4(4ctW^>  ^ »  i':;  ♦***i(4c  +  *+*  + 

/  :|e  1 4(  4^  4(  4c  4c  t  *  4c  4c  4c  4c  4c  4c  4c  4c  *  4(  4c  4c  4c  4c  / 

/4C  DECLARATION  SECTION  4c/ 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

#include  <stdio.h> 

#include  "jsmacros.h** 

float  4cvector(); 
void  free^vectorO ; 

/4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c/ 

/4C  MAIN  PROGRAM  BODY  4c/ 

/4c  4c  4c  4c  4c  4c  4c  4c  4t  4c  4c  4t  4c  4c  4c  ♦  4c  4c  4t  4c  4c  4c  4c  / 

void  reconvolve (dataoutpo inter ,h^of_npointer, g_of_npo inter, 
c_coefpointer ,d_coef pointer) 
float^vector  4cdataoutpointer ; 
float^vector  4ch_of_npointer ,  *g.of_npointer ; 
f loat^vector  4cc_coef pointer ,  4cd  coef pointer ; 

{ 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

/4c  declare  variables  4c/ 

/  4c  4c  4c  4c  4c  4c  4c  4c «  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

int  i ,  j ; 
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float .vector  vect in , vectout ,  response ; 
float. vector  temp, tempi; 
char  f ilename [64] ; 

FILE  +outfile; 

/*  allocate  memory  ♦/ 

/  :|c  4c  ♦  ♦  4c  1 4c  ♦  ♦  3|c  :(c  ](c  %  4c  *  / 

temp. length  =  c.coefpointer->length*2; 
temp. Victor  =  vector (1,  temp. length) ; 
loopliCtemp. length)  temp. vector [i]  =  0.0; 
tempi. length  =  c_coefpointer->length*2; 
tempi. vector  =  vectord,  tempi. length)  ; 
loopli (tempi. length)  tempi. vector [i]  =  0.0; 
vect  in.  vector  =  vectord  ,temp.length*2)  ; 
loopli(temp.length*2)  vectin. vector [i]  =  0.0; 
vectout.  vector  =  vectord  ,4*temp.  length) ; 
loopli(terop.length*4)  vectout .vector [i]  =  0.0; 
response,  vector  =  vectord , temp. length*2)  ; 
loopli(temp.length*2)  response. vectorCi]  =  0.0; 

vectin. length  =  4*c.coef point er“>length; 
dataoutpointer*->length  =  c.coefpointer-’>length*2; 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c/ 

/♦  perform  convolution  */ 

/  4c  4c  4e  4: 4c  4(  4c  4c  4c  4c  4e  4c  4c  4c  4c  4c  4c  4c  4c  4e  4c  4c  4c/ 

printf (“\nConvovling  c.coef  with  h(n)...'*); 

looplj(c.coefpointer->length)  vectin. vector [2*j]  =  c.coefpointer“>vector [j] ; 
loopl j (vect in . length)  response . vector [ j] =h.of .npointer->vector [ j]  ; 
spconvlv ( vect in . vector , vectin . length , response . vector , 

h.of.npointer“>length, 1 , vectout .vector) ; 
loopl j( c.coef point er->length^2)  temp. vector [j]  =  vectout. vector [j] ; 

/*  zeros  were  added  between  each  row  before  convolution  ♦/ 

printf (*'\nConvovling  d.coef  with  g(n)...'*); 

loopl j(d.coef point er->length)  vectin.vector[2*j3  =  d_coefpointer“>vecto.r  [j]  ; 
loopl j (vect in . length)  response . vector [ j ] =g.of .npoint er->vector [ j]  ; 
spconvlv (vect in . vector , vectin . length , response . vector , 

g.of .npoint er->length, 1 , vectout . vector) ; 
loopl j (d.coef pointer->length^2)  tempi. vector  [j]  =  vectout .vector [j] ; 

/♦  zeros  are  added  between  each  row  before  convolutio*i  */ 

/*  Add  temp  vectors  */ 
loopl i(dataoutpointer->length) 

dataoutpointer-“>vector[i]  =  temp,  vector  [i]  +  tempi  .vectorCi]  ; 

/♦  reset  vector  indeces.  ♦/ 
d.coefpointer~>length  =  dataoutpointer->length; 

/*  free  memory  ♦/ 

free.vector(terap. vector ,  1,  c.coef pointer->length^2) ; 
f ree.vector (tempi. vector ,  1,  c.coef pointer“>length*2) ; 
free.vector(vectin. vector ,  1,  4*dataoutpointer“>length) ; 
f ree.vector (vectout. vector,  1,  8*dataoutpointer“>length) ; 

} 


B.4-8  Listing  of  SPCONVLV.C  (See  Appendix  B.2) 
B.4-9  Listing  of  NRUTIL.C  (See  Appendix  F.2)  (35) 
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B.4*10  Listing  of  JSMACROS.H  (See  Appendix  F.2) 

B.4-11  Listing  of  STEWMATHJI  (See  Appendix  F.2) 

B.4JS  Listing  of  MAKEFILE 

#  Makefile  routine  for  the  wavel  program  by  Laing  and  Smiley. 
DEFLAGS  =  ~g 

OBJS  =  main-wavel.o  loadsignal.o  filters. o  convolvel.o  spconvlv.oX 
decompose 1.0  reconstruct! .o  reconvolvel .o  nrutil.o 

spwave2:  $(OBJS) 

©echo  "linking  ..." 

cc  $(OBJS)  -o  wavel  $(DEFLAGS)  -Im 

main-wavel.o:  main-wavel.c 
cc  “C  $(DEFLAGS)  main-wavel.c 

loadsignal.o:  loadsignal.c 
cc  -c  $(DEFLAGS)  loadsignal.c 

filters.©:  filters.© 
cc  -c  $ (DEFLAGS)  filters.© 

spconvlv . o :  spconvlv . c 
cc  -c  $(DEFLAGS)  spconvlv.© 

convolvel.o:  convolvel.c 
cc  -c  $(DEFLAGS)  convolvel.c 

reconvolvel .o:  reconvolvel .c 
cc  -c  $(DEFLAGS)  reconvolvel.© 

decomposel .o:  decomposel.c 
cc  -c  $(DEFLAGS)  decomposel.c 

resonstructl .o:  reconstruct! . c 
cc  -c  $(DEFLAGS)  reconstruct! .c 

nrutil.o :  nrutil.c 

cc  -c  $(DEFLAGS)  nrutil.c 
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Appendix  C.  Software  to  Build  a  World  Model 


C.l  System  Description  of  the  FBUILD  Program 

This  program  requires  as  input  the  output  of  the  “«;az;e~”  program.  When  running 
the  ^wave2"  program,  any  available  wavelet  may  be  used.  However,  the  filenames  of  the 
approximation  images  required  as  input  to  the  “fbuild”  program  must  have  the  wavelet  code 
suffix  stripped  off  before  running  the  the  ^’’fbuild!'  program.  In  the  case  of  the  anlaysis  of 
Chapter  of  the  author’s  thesis,  we  used  the  cubic  spline  wavelet  in  the  “wave2”  program. 
Therefore,  the  “.spl”  had  to  be  removed  from  the  end  of  each  of  the  approximation  files 
whose  names  were  “wkanisza.512.1.c.spr’  through  “wkanisza.512.4.c.spl”. 

Three  parameters  are  adjustable  before  compile  time:  1.  The  level  or  depth  that 
“fbuild”  uses  to  build  the  frames,  2.  The  window  size  in  pi.xels  that  ’’fbuild”  uses  to  de¬ 
termine  the  spatial  extent  of  information  taken  from  each  level  for  each  fixation  point,  and 
3.  the  number  of  fixation  points  used  to  build  the  composite  image.  These  parameters  maj- 
be  changed  in  the  declaration  section  of  the  fbuild.c  file  in  the  #def  ine  statements. 

To  run  the  program,  type  at  the  command  line  the  following: 

command  prompt:  fbuild  <filename>  <size> 

The  filename  and  its  size  are  optional  entries  on  the  command  line.  If  not  used, ''  jhttiUr 
will  prompt  the  user  for  these  items. 

The  “fbuild”  program  was  written  for  the  masters  thesis  of  .1.  Stewart  Laing.  It  was 
used  in  the  evaluation  executed  in  Chapter  VI  of  that  Ihesi.s  for  the  .Air  Force  In.stitutc  of 
Technology.  The  author  has  no  intention  of  maintaining  this  program  or  enhancing  it  in  <in\ 
way. 

The  following  is  a  list  of  functions  which  compri.se  the  xoavc  program: 

1.  fbuild.c  -  The  main  program  for  ffiuild. 

2.  futil.c  -  Utility  functions  written  specifically  for  the  ffiuild  program. 


3.  nrutil.c  -  Utiltity  functions  Nume7'ical  Rccipies  h  C(See  Appendix  F  2  for  listing) 
[35].  decomposition. 

4.  spline .  c  -  A  routine  from  it  Numerical  Recipies  in  C  used  in  the  cubic  spline  expansion 
(35). 

5.  splint. c  -  A  routine  from  Numerical  Recipies  in  C  used  to  perform  cubic  spline 
interpolations  (35). 

6.  splin2.c  -  A  routine  from  Numerical  Recipies  in  C  used  in  two  dimensional  cubic 
spline  interpolations  (35]. 

7.  maJcefile  -  A  makefile  that  is  used  to  compile  and  link  the  source  code  to  make  an 
executable  file. 

8.  jsmacros  .h  -  An  include  file  that  contains  macros  we  found  useful  in  our  programming 
environment.  This  file  must  be  present  in  the  directory  where  compilation  takes  place 
(See  Appendix  F.2  for  listing). 

9.  stewmath.h  -  An  include  file  containing  some  math  routines  specific  to  our  program. 
It  must  be  pre.sent  in  the  directory  where  complilation  takes  place  (See  Appendix  F.2 
for  listing). 

Typing  “make"  at  the  command  prompt  in  any  directory  with  all  of  the  above  files  present 
will  create  the  appropriate  object  code  and  an  executable  file  called  fbuild  that  may  be  exe¬ 
cuted  by  typing  “fbuild"  at  the  command  prompt. 


C.2  FBUILD  Program  Software 
C.S.I  Lislmg  of  FBUILD. C 


/♦♦♦  FRAME  BUILDER  MAIN  PROGRAM  DRIVER  *♦/ 

/♦  DATE:  14  Aug  91 
VERSION:  1.0 
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NAME:  f build. c 


DESCRI’^TION:  This  program  builds  frames  for  a  model  of  the  hum.n  visual 
system  based  on  the  characteristic  of  the  human  eye  to  scan  and  fixate 
to  build  a  world  model  for  use  in  the  brain.  The  program  uses  as  input 
data  the  approximation  images  from  a  wavelet  multiresolution  decompostion. 
In  begins  with  the  approximation  at  a  given  level  of  resolution  and  builds 
a  frame  based  on  given  fixation  coordinates  in  the  original  image. 

FILES  READ:  approximation  images  as  generated  by  the  wave2 
progra-ri  with  the  wavelet  type  suffix  stripped  off. 

FILES  WRITTEN:  The  output  file  is  one  frame  with  the  suffix  .frra 

HEADERS  USED:  <stdio.h>,  "jsmacros.h'*,  "stewmath.h” , 

<math.h> 

CALLING  PROGRAMS:  NONE 

PROGRAMS  CALLED:  futil.c,  nrutil.c 

AUTHOR:  J.  Stewart  Laing 
HISTORY:  Initial  Version. 

*/ 

f  4e:^:4c:^3|c4:4c:tc4;]|c4c1c4e4c4c4c4e9|c;4ci(c3|c]|c:tc4c4(/ 

/*  DECLARATION  SECTION  ^ 

/  «  %  4c  4c  «  4c  4c  «  4c  ♦  ♦  ♦  «  ♦  9|C  ♦  4c  ♦  « 4c  ♦  / 

#include  <stdio.h> 

#include  " j  smacros .  h'* 

#include  “stewmath.h*' 

#include  <math.h> 

#define  WIDTH  4 

#define  DEPTH  4 

#define  FRAMES  15 

void  extract  0; 
void  expandlQ; 
void  insert  0; 
float  ♦♦matrixQ; 
void  free_raatrix() ; 
float  *vector(); 
int  *ivector(); 
void  free_vector() ; 
void  free_ivector() ; 

#  4c  3^  4c  4c  4c  ♦  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ♦  4c  4c  4c  / 

/♦  MAIN  PROGRAM  BODY  ♦/ 

/  4c  4c  *  4c  #  4c  ♦  ♦  4c  4c  4c  4c  #  #  4c  *  4c  4c  ♦  4c  4c  4c «  / 

void  main(argc,  argv) 
int  argc ; 
char  ♦argv [] ; 

{ 

/«4c  4c  ♦4c«4c  4c4c4c4c  4c«c^  4c4c«  4c  ♦4c  4c«/ 

/♦  declare  variables  ♦/ 

/4c*  4c  4c*  ♦♦  4c  4c#  4c  4c  4c  4c#«^  ♦  *4: 4c  4c  4c  4c/ 

int  i,j,k,l,m,  fwidth,  depth,  x,  y,  ♦X,  ♦Y,  row,  col,  offset; 

char  inf ilenarae[64] ,  filename [64] ; 

float_array  a,  dl,  d2,  d3,  d,  exp,  frame; 

FILE  ♦infile,  ♦outfile; 

float  ♦♦sub,  ceil; 

/♦♦♦♦♦♦♦♦**  *4r4r**4r*************4c4c4c*****/ 

/♦  load  image  to  be  analyzed  ♦/ 

if (argc  !=  3  argc  !=  1){ 

printf ("Usage:  fbuild  <filename>  <N  for  NxN  array  of  original  image>\n*'); 
exit(O) ; 

} 


if(argc  ==  1){ 

printf (*'\n\n\ii  Input  the  size  of  the  image  (N  for  NxN  array):'*); 
scanf &frarae.ROW); 

printf  (*'  \n\n  Input  filename  of  image  to  be  histograined:>'*) ;  fflush(stdout) ; 
scanfCy.s",  infilename); 

} 

else  { 

sprintf (inf ilename,  "ys",  argv[l3); 
sscanf  (argv[2]  ,  *'5(d",  &frarae.ROW); 

> 

/  ]|c  %  ]|c  :tc  4c  4c  ♦  ♦  ♦  ♦  *  4c  4c  4c  4c «  %  / 

/*  Allocate  Memory  ♦/ 

/4c  4c  4c  4c  4t  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c*4c/ 

f width  =  WIDTH; 
depth  =  DEPTH; 

exp. ROW  =  fwidth4c(int)(pow(2.0,(double)depth)) ; 
a. ROW  =  2*frame.R0W; 
a. COL  =  a. ROW; 

a. array  =  matrixd,  a. ROW,  1,  a. COL); 
looplij(a.ROW,a.COL)  a.array [i] [j]  =  0.0; 
frame. ROW  4c=  2; 
frame. COL  =  frame. ROW; 

frame. array  =  roatrixd,  frame. ROW,  1,  frame. COL); 
looplij (frame. ROW, frame. COL)  frame.array [i] [j]  =  0.0; 
exp. COL  =  exp. ROW; 

exp. array  =  matrixd,  exp. ROW,  1,  exp. COL); 
looplij(exp.ROW,exp.COL)  exp.arrav[i] [j]  =  0.0; 
sub  =  matrixd,  24cf width,  1,  24cfwii  ^); 
looplij (24cfwidth,2*fwidth)  sub[i][j  =  0.0; 

Ad. ROW  =  frame-R0W/(int)(pow(2.0,(double)depth))  ; 
d.COL  =  d.ROW; 

d. array  =  matrixd,  d.ROW,  1,  d.COL); 
looplij (d.ROW,  d.COL)  d.array [i] [j]  =  0.0; 
dl.ROW  =  frame. R0W/(int)(pow(2.0,(double)depth)); 
dl.COL  =  d.ROW; 

dl. array  =  matrix(l,  dl.ROW,  1,  dl.COL); 
looplij (dl.ROW,  dl.COL)  dl .array [i] [j]  =  0.0; 
d2.R0W  =  frame. R0W/(int)(pow(2. 0, (double)depth)) ; 
d2.C0L  =  d2.R0W; 

d2. array  =  matrix(l,  d2.R0W,  1,  d2.C0L); 
looplij (d2. ROW,  d2.C0L)  d2. array [i] [j]  =  0.0; 
dS.ROW  =  frame.R0W/(int)(pow(2.0,(double)depth)) ; 
d3.C0L  =  dS.ROW; 

d3. array  =  matrix(l,  d3.R0W,  1,  d3.C0L); 
looplij (d3. ROW,  d3.C0L)  d3. array [i] [j]  =  0.0;*/ 


/♦  prompt  user  for  fixation  coordinate  :  ♦/ 

/♦  printf ( "XnXn  Input  the  number  of  coordinates  in  memory:'*); 
scanf(*'y.d**,&l); 

X  =  ivectord,  1); 

Y  =  ivectord,  1); 

loopli(l)  { 

printf (**\n\n  Input  col  coordinate  xyd:**,i); 
scanf  (**yd**,  ftX[i]);col  =  XCi]; 
printf (**\n\n  Input  row  coordinate  YXd:",!); 
scanf(**y.d*',  &Y[i]);row  =  Y[i]; 

} 

♦/ 

1=FRAMES; 
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X  =  ivectorCl,  1);  Y  =  ivector(i,  1); 

sprintf (filename,  *'coll5.x**) ; 

OPEN„FILE( infile,  filename,  "The  Frame  Builder") 
loopli(l)  fscanf (inf ile,  "XdXn",  &X[i]); 

CLOSE_FILE(i,  filename,  "The  Frame  Builder",  infile) 

sprintf (filename,  "rowlB.y"); 

OPEN_FILE(inf ile,  filename,  "The  Frame  Builder") 
loopli(l)  fscanf (infile,  "Xd\n",  &Y[i]); 

CLOSE_FILE(i,  filename,  "The  Fr^me  Builder",  infile) 

/*  proD  j)t  user  for  fixation  threshold  ♦/ 

/*  printf("\n\n  Input  the  threshold  for  fixation(float) :") ; 
scanf  ("y.f  " , Aceil)  ;  */ 

/♦  set  size  of  arrays  for  reading  ♦/ 

a. ROW  =  (frame. R0W/2)/(int)(pow(2.0,(double)depth)); 
a. COL  =  a. ROW; 
offset  =  frame. ROW/4; 

/♦  read  in  coarsest  approximation  and  details  ♦/ 

/♦printf ("\nreading. . .\n”) ;fflush(stdout) ; 
sprintf  (filename,  "JCs.V.d.c",  infilename,  depth); 

OPEM_FILE(inf ile,  filename,  "The  Frame  Builder") 
looplij(a.R0W,a.C0L)  fscanf (inf ile,  "%f\n",  fta. array [i]  [j]); 
CLOSE_FILE(i,  filename,  "The  Frame  Builder",  infile)*/ 

/♦printf  ("\nreading _ \n")  ;fflush(stdout)  ; 

sprintf (filename,  "Xs.Xd.dl",  infilename,  depth); 
0?EN_FILE(infile,  filename,  "The  Frame  Builder") 
looplij(a.R0W,a.C0L)  fscanf  (infile,  "5if\n",  ftdl.  array  [i]  [j]); 
CLOSE_FILE(i,  filename,  "The  Frame  Builder",  infile) 

printf  ("\nreading. .  .\n")  ;fflush(stdout) ; 
sprintf  (filename,  "*/s.yd.d2",  infilename,  depth); 
OPEI_FILE(infile,  filename,  "The  Frame  Builder") 
looplij(a.ROW,a.COL)  fscanf (inf ile,  ”5(f\n",  td2. array [i] [j]); 
CLOSE_FILE(i,  filename,  "The  Frame  Builder”,  infile) 

printf  ("\nreading. .  An")  ;fflush(stdout) ; 
sprintf  (filename,  "V.s.Xd.dS",  infilename,  depth); 
OPEK_FILE(infile,  filename,  "The  Frame  Builder") 
looplij(a.ROW,a.COL)  fscanf (infile,  ”Xf\n",  tdS. array [i] [j]); 
CLOSE_FILE(i,  filename,  "The  Frame  Builder",  infile)*/ 

/♦  find  fixation  vectors  ♦/ 

/♦X  =  ivectord,  d.COL^d.ROW) ; 

Y  =  ivectord,  d.ROW^d.COL); 

1=0; 

looplij(d.R0W,  d.C0L){ 

d.arrayCi]  [j]  =  dl. array [i] [j]+d2.arrayCi] Cj3+d3.array[i] [j] ; 
if (d. array [i] [j]  >  ceil)  { 
if(d<  31)  (j<31)){ 

1++; 

X[l]  =  i;printf("\nX[y.d]=7,d",l,XCl]);fflush(stdout); 
Y[lj  =  j;printf("\nY[y.d]=y.d".l,Y[l3);fflush(stdout); 

} 

} 

}♦/ 

printf ("\nTh ere  are  Xd  fixation  points",  1) ;fflush(stdout) ; 

/♦  expand  coarsest  approx  to  form  background  of  frame  ♦/ 
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/♦printf  (**\nexpanding. .  An")  ;fflush(stdout); 
expandl(a.array,  a. ROW,  frame. ROW,  frame. array ) ;♦/ 

/♦  read  in  already  expanded  approximation  of  coarsest  approx 
to  form  background  of  frames.  ♦/ 

printf  ("Xnreading. .  .\n**)  ;fflush(stdout)  ; 
sprintf (filename,  *7,s.y,d.c.exp**,  infilename,  depth); 
OPEN.FILEC infile,  filename,  "The  Frame  Builder") 
looplij (frame. ROW/2, frame. COL/2) 

fsca.if  (inf ile,  "XfXn",  ftframe. array [i+off set]  [j+off set]  )  ; 
CLOSE_FILE(i,  filename,  "The  Frame  Builder",  infile) 

/♦  begin  iteration  ♦/ 

for(k=depth“l ;k>=0;k — ){ 

/♦  read  in  next  approx.  */ 

printf ("Xnreading. . .Xn") ;fflush(stdout) ; 
a. ROW  ♦=  2;  a. COL  *=  2; 

sprintf (filename,  "Xs.yd.c",  infilename,  k) ; 
OPEN_FILE(infile,  filename,  "The  Frame  Builder") 
looplij (a. ROW, a. COL) 

fscanf  (infile,  "y.fXn",  fta.array  [i+offset]  [j+offset])  ; 
CLOSE_FILE(i,  filename,  "The  Frame  Builder",  infile) 

looplm(l){ 

/♦  extract  area  of  approx.  ♦/ 

printf ("Xnextracting — Xn") ;fflush(stdout) ; 

X  =  ( (X Cm] /(fwidth»2))^(fwidth»2))+(f width) ; 
y  =  ((Y[m]/(fwidth»2))*(fwidth*2))+(fwidth) ; 

X  =  (x-'l)/(int)(pow(2.0,(double)k))+l; 
y  =  (y-i;/(int)(pow(2.0,(double)k))+l; 

X  (fwidth-1); 

y  -=  (fyidth-1); 

/♦  X[m]  =  2»(XCm]-l)+l; 

YCm]  =  2*(YCm]-l)+l; 

♦/ 

extract (a -array,  fwidth*2,  x+offset,  y+offset,  sub); 

/♦  expand  to  scale  of  frame  ♦/ 

printf ("Xnexpanding. . .Xn") ;fflush(stdout) ; 
exp. ROW  =  fwidth*2» (frame. ROW/2) /a. ROW; 
exp. COL  =  exp. ROW; 

printf ("Xnarea=%dxXd", exp. ROW, exp. COL) ;fflush(stdout) ; 
printf  ("Xnvector=y.d"  ,m)  ;fflush(stdout) ; 
expand] (sub,  fwidth*2,  exp. ROW,  exp. array); 

/♦  overwrite  new  approx  onto  frame  */ 

printf ("Xninser ting. . .Xn");fflush(stdout) ; 

X  =  (int)(pow(2.0,(double)k))*(x“l)+l; 
y  =  (int)(pow(2.0,(double)k))*(y-l)+l; 
insert (exp. array,  exp. ROW,  x+offset,  y+offset, 
frame. array) ; 

}/*  end  ro  loop»/ 

/♦  recenter  coordinates  ♦/ 

/♦  loopli(l){ 

X[i]  +=  f width/2; 

Y[i]  +=  f  width/2; 

}♦//♦  end  i  loop  ♦/ 

}/♦  end  k  loop  ♦/ 

/♦  write  frame  to  a  file  ♦/ 
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print! (“Xnwr i ting. .  .\n**)  ;fllush(stdout) ; 
sprint! (filename,  *'y,s.!rni.y.<iy,d** ,  infilename,  row,  col); 
CREATE_FILE(out!ile,  filename,  *‘The  Frame  Builder'*) 
loopli j (frame . ROW/2 , frame . COL/2) 

fprintf  (outxile,  ”ytl\n“,  frame. array [i+of f set]  [j+off set]); 
CLOSE_Fii-E(i,  filename,  "The  Frame  BuiMer",  outfile) 

/♦  free  memory  ♦/ 

exp. HOW  =  fwidth*(int)(pow(2.0,(double)depth)); 
a.  ROW  =  frame.  ROW; 
a. COL  =  a. ROW; 
exp. COL  =  exp. ROW; 

f rce^matrix (a . array , 1 , a . ROW , 1 , a . COL) ; 
f ree_matrix(exp . array , 1 , exp . ROW , 1 , exp . COL) ; 
free_matrix (frame . array , 1 , frame . ROW , 1 , frame . COL) ; 
f ree^matrix (sub, l,2*f width, 1 ,2*f width) ; 

/♦  THE  EMD  ♦/ 

} 

a2.2  Listing  of  FUTILC 


/♦♦♦  FRAME  BUILDER  UTILITY  SUBROUTIHE  **/ 


/♦  DATE:  14  Aug  91 
VERSION:  1.0 


NAME:  futil.c 


DESCRIPTION:  This  program  provides  the  utilities  for  cubic 
spline  interpolation  based  expansion  of  the  images  used  int 
the  f build  program. 

FILES  READ:  NONE 
FILES  WRITTEN:  NONE 

HEADERS  USED:  <stdio.h>,  "jsaacros.h",  "stewmath.h", 
<math.h> 

CALLING  PROGRAMS:  f build. c 

PROGRAMS  CALLED:  nrutil.c,  spline. c,  splint. c,  splin2.c 
AUTHOR:  J.  Stewart  Laing 
HISTORY:  Initial  Version. 


#include  <math.h> 
#include  "jsmacros.h" 
#include  <stdio.h> 
float  ♦*matrix(); 
float  ♦vectorO; 
void  free^vcctorO ; 
void  free^matrixO ; 


void  sxtract(in,  window,  X,  Y,  out) 
float  *»in,  ♦♦out; 
int  X,  Y,  window; 


int  i,j; 

for(i=Y;  i<Y+ window;  i++) 

for(j=X;  j<X+window;  j++)  out[i-Y+l] Cj“X+l]  =  inCi][j]; 
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void  expand(in,  small,  big,  out) 
float  **in,  *tout; 
int  small,  big; 

int  i, j ,k,l,  factor; 

factor  =  big/small; 
looplij (small, small) 

looplkKfactor, factor)  out  [factor*(i-l)+k]  [factor*(j-l)+l]  =  in[i]Cj]; 

} 

void  insert (in,  window,  X,  Y,  out) 
float  ♦♦in,  ♦♦out; 
int  window,  X,  Y; 

int  i,j; 

for(i=Y;  i<Y+window;  i++) 

for(j=X;  j<X+window;  j++)  out[i]Cj]  -  in[i-Y+l]  [j-X+1]  ; 

} 

void  expandO(in,  small,  big,  out) 
int  small,  big; 
float  ♦♦in,  ♦♦out; 

{ 

int  i,j,k,l,  factor; 
float  ♦tab,  ♦♦yp; 
void  splin2(),  splineO; 

tab  =  vector(l,  small); 

yp  =  matrix(l,  small,  1,  small); 

factor  =  big/small; 
loopli(small)  tabCi]  =  factor^!; 

loopli(small)  spline(tab,  inCi],  small,  l.OeSO,  l.OeSO,  yp[i]); 
looplij (small , small) 

loopkl(f actor ,  factor) 

splin2 (tab , tab , in , yp , small , small , (float ) (f actor^i-k) , 

(float) (f actors j-1) ,&out [f actor^i-k] [f actors j-1] ) ; 

free_vector(tab,  1,  small); 
free_matrix(yp,  1,  small,  1,  small); 

} 

void  expand2(in,  small,  out) 
int  small; 
float  ♦♦in,  ♦♦out; 

int  i,j,k,l,  factor; 

float  ♦♦yp,  ♦tmp,  ♦ptmp,  ♦tab; 

void  splineO,  splint (); 

yp  =  matrixd,  small,  1,  small); 
tab  =  vector (l,  small); 
tmp  =  vector (1,  small); 
ptmp  =  vectord,  small); 

loopli(small)  tab[i]  =  2^i; 

loopii(small)  spline(tab,  in[i],  small,  l.OeSO,  l.OeSO,  yp[i]); 
looplij (small,  small){ 

outC2*i]  C2^j]  =  inCiDCj]; 

splint(tab,  in[i],  yp[i],  small,  (float)  (2^j“*l) ,  &out  [2^i]  [2^j-l] ) ; 
looplij (small,  small^2){ 
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loop  Ik  (small)  tmp[k]  =  out[2*k][j]; 
spline (tab,  tmp,  small,  l.OeSO,  l.OeSO,  ptrap) ; 
splint(tab,  tmp,  ptmp,  small,  (float)  (2*i-l) ,  &o’’t  [2^i-l]  Cj] ) ; 
} 

free.matrix(yp,  1,  small,  1,  small); 
free_vector(tmp,  1,  small); 
free_vector(ptmp,  1,  small); 
free_vector(tab,  1,  small); 

} 

void  expandl(in,  small,  big,  out) 
int  small,  big; 
float  ♦♦in,  ♦♦out; 

int  i,j,k,l,  factor,  index; 
float  ♦♦tmp; 

if  (sinall==big)  looplij (small, small)  out  [i]  Cj]==in[i]  Cj]  ; 
else  { 

tmp  =  matrix(l,big,l,big); 
factor  =  big/small; 

index  =  (int) (log((double)factor)/log(2,0)) ; 

looplij  (small, small)  tmpCiJCj]  “  inCi][j]; 
loopli(index){ 

expand2(tmp,  small,  out); 
small  ♦=  2; 

looplkl(small,  small)  tmpCk][l]  =  out[k][l]; 

} 

free_matrix(tmp,  1,  big,  1,  big); 


C,8,3  Listing  of  NRTUIL.C  (See  Appendix  F.2) 


C.2.4  Listing  of  SPLINE,  C 

void  spline (x,y,n,ypl,ypn,y2) 
float  xC]  ,yC]  ,ypl,ypn,y2C3 ; 
int  n; 

{ 

int  i,k; 

float  p,qn,sig,un,^u,^vector() ; 
void  free_vector() ; 

u=vector(l,n“l) ; 
if  (ypl  >  0.99e30) 
y2[l]=uCl]=0.0; 
else  { 

y2Cl]  =  -0.5; 

u[l]  =  (3.0/(x[2]-xCl]))^((yC2]-yCl])/(x[2]-xCl])-ypl); 

} 

for  (i=2;i<=n-l;i++)  { 
sig=(x[ij-xCi-l]  )/(x[i+l]-x[i-l]) ; 
p=sig^y2 [i-l] +2.0; 
y2[i]=(sig-1.0)/p; 

u[i]  =  (yCi+l]-yCi])/(xCi+l3-x[i])  -  (yCi]-yCi-l])/(xCi]-xCi-l]); 
u  [i]  =  (6 .  O^u  [i]  /  (x  Ci+1]  -X  [i-l]  )  -sig^u  [i- 1] )  /p ; 

} 

if  (ypn  >  0.99e30) 

qn=un=0.0; 

else 
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qn=0 . 5 ; 

uii=(3  *  0/(x  [n]  -X  [n-l] )  )*  (ypn-(y  [nl  -y  [n-l]  )  /(x  [n]  -x  [n-1] ) ) ; 

} 

y2  [n]  =  (uii~qn*u  [n-l]  )  /  (qn*y2  [n-l] +1.0); 
for  (k=n-l;k>=l;k — ) 
y2 [k] =y2 [k] ♦y2 [k+1] +u [k] ; 
free_vector(u,l,n-l) ; 

} 


C.2.5  Listing  of  SPLINT.  C 


void  splint(xa,ya,y2a,n,x,y) 
float  xa[]  ,ya[]  ,y2a[]  ,x,*y; 
int  n; 

int  klo,khi,k; 
float  h,b,a; 
void  nr  error  0; 

klo=l ; 
khi=n; 

while  (khi-klo  >  1)  { 
k=(khi+klo)  »  1; 
if  (xa[k]  >  x)  khi=k; 
else  klo=k; 

> 

h=xa[khi]-xa[klo] ; 

if  (h  ==  0.0)  nrerror(**Bad  XA  input  to  routine  SPLINT'*); 
a= (xa [khi] -x) /h ; 
b= ( x-xa [klo] ) /h ; 

*y=a«y a [klo] +b*y a [khi]  +  ( ( a*a*a-a) *y2a [klo]  +  (b*b*b-b) *y 2a [khi]  ) * (h*h) /6 . 0 ; 

} 


C.2.6  Listing  of  SPLIN2.C 

void  splin2(xla,x2a,ya,y2a,m,n>xl ,x2,y) 
float  xla[] ,x2a[] ,**ya,**y2a,xl,x2,*y; 
int  m,n; 

{ 

int  j; 

float  *y tmp , ♦yytmp , * vector ( ) ; 

void  splineO ,splint() ,free_vector() ; 

ytmp=vector(l ,n) ; 
yytmp=vector ( 1 ,n) ; 
for  (j=l; j<=m;j++) 

splint (x2a,ya[3] ,y2a[j] ,n,x2,&yytmp[j] ) ; 
sp3 ine (xla , yytmp ,ra , 1 . 0e30 , 1 . 0e30 , y tmp) ; 
splint(xla,yytmp,ytmp,m,xl ,y) ; 
free_vector(yytmp, 1 ,n) ; 
f ree_vector(ytmp, 1 ,n) ; 

} 


C.2.7  Listing  of  JSMACROS.II  (See  Appendix  F.2) 
C.2.8  Listing  of  STEWMATH.H  (see  Appendix  F.2) 
C.2.9  Listing  of  MAKEFILE 


#  Makefile  routine  for  the  Frame  Builder  by  Laing  and  Smiley. 
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DEFLAGS  =  -g 

OBJS  =  f build. o  futil.o  nrutil.o  splin2.o  spline. o  splint. o 

f build:  $(OBJS) 

(Decho  “linking  . . .  ** 

cc  $(0BJS)  -o  fbuild  $(DEFLAGS)  -Im 

f build. o:  fbuild. c 

cc  -c  $(DEFLAGS)  fbuild. c 

futil.o:  futil.c 

cc  -c  $ (DEFLAGS)  futil.c 

nrutil.o:  nrutil.c 

cc  -c  $(DEFLAGS)  nrutil.c 

splin2.o:  splin2.c 

cc  -c  $(DEFLAGES)  splin2.c 

spline. o:  spline. c 

cc  -c  $(DEFLAGES)  spline. c 

splint. o:  splint. c 

cc  -c  $(DEFLAGES)  splint. c 
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Appendix  D.  Software  for  the  Spatial-  Temporal  Model 


D.l  System  Description 

The  following  programs  are  used  in  tlv'  spatial-temporal  analysis  of  Chapter  VII; 

1.  kangen  -  A  program  used  to  generate  the  frames  used  in  the  analysis. 

2.  wave2  -  The  Multiresolution  Wavelet  Decomposition  and  Reconstruction  program  for 
two  dimensional  images  (See  Appendix  B.l). 

3.  vhuUd  -  A  program  used  to  reduce  the  total  number  of  time  signals  that  are  processes 
by  the  wavel  program. 

4.  strip  Id  -  A  program  that  srips  the  one  dimensional  time  signals  designated  by  the 
vbuild  program  for  processing  by  the  wavel  program. 

5.  wavel  -  The  Multiresolution  Wavelet  Decomposition  and  Reconsruction  program  for 
one  dimen5.ional  signals  modified  for  use  in  the  analysis  of  Chapter  VII  (See  Appendix 
B.2). 

6.  rbuild  -  A  program  used  to  rebuild  tlie  frames  based  on  the  output  of  the  wavel 
program. 

7.  tblur  -  A  program  used  to  animate  the  output  of  the  rbvild  program  for  demonstration. 

The  “kangen”  program  and  the  “tblur”  program  run  on  a  Silicon  Graphics  workstation. 
The  others  run  on  any  sytem  with  an  ANSI  C  compiler.  The  “wave2”  is  described  in  Chapter 
IV  and  listed  in  .Appendix  B.  Listed  in  this  appendix  are  the  “vbuild”,  “stripld”,  “rbuild”, 
and  those  modules  of  the  “wavel”  program  that  were  modified  from  those  in  Appendix  B 
for  the  spatial-temporal  analysis. 

The  “kangen”  program  is  used  to  create  the  files  that  contain  the  individual  frames  of 
the  scene  to  be  analyzed.  To  lun  this  program,  type  the  following  on  the  command  line: 


1S3 


command  prompt:  kangen 

The  parameters  are  hard  coded  and  must  be  set  before  the  program  is  compiled.  Each 
output  file  from  this  program  is  then  run  through  the  “wave2'’  program  separately  to  generate 
the  desii'ed  level  of  resolution  to  be  used  in  the  analysis.  Whatever  level  of  resolution  is  used 
the  output  files  must  be  expanded  to  the  sample  scale  of  the  original  ‘‘kangen”  output  before 
proceeding.  The  “expd”  program  may  be  used  for  this  purpose  (see  Appendix  F.2  for  listing). 

The  output  of  the  “wave2”  program  is  used  as  input  to  the  “vbuild”,  “stripld”,  and 
“rbuild”  programs.  Two  parameters  are  adjustable  in  these  programs:  1.  The  number  of 
frames  in  the  scene  to  be  analyzed,  and  2.  The  number  of  vectors  found  by  the  “vbuild  ’ 
program.  Of  these  three,  the  "vbuid”  program  must  be  run  first  to  generate  the  locations  of 
the  pixels  that  will  be  used  as  the  one  dimensional  time  signals.  To  run  this  program  type 
on  the  command  line  the  following: 

command  prompt:  vbuild  <filensLme>  <size> 

The  filename  and  its  size  are  optional  parameters.  If  they  are  not  entered  on  the 
command  line,  “vbuild”  will  prompt  the  user  for  them.  The  filename  is  a  common  first 
part  of  all  the  frame  files  that  are  asctually  read  individually.  For  example,  the  filer,  ame 
“frame”  would  signal  the  “vbuild”  to  look  for  files  named  framex.asc  where  the  x  is  the 
frame  number  starting  at  i  and  increasing  by  one  up  to  the  value  of  FRAMES  set  in  the 
declaration  section  with  the  #define  statement.  The  output  of  the  “vbuild”  program  are  the 
files  strip.x  and  strip.y.  These  files  are  read  in  by  the  “stripld”,  “rbuild”,  and  the  modified 
“wavel”  programs. 

Next,  the  stripld  program  is  run  by  typing  the  following  command  at  the  command 
prompt: 

command  prompt:  stripld  <filename>  <si2e> 

Treatment  of  arguments  is  the  same  as  for  the  “vbuild”  program  above.  The  output  of 
the  “stripld”  program  is  a  file  that  contains  the  one  dimensional  time  signals  used  as  input 
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for  the  modified  version  of  tlie  “wavel”  program.  To  run  the  ’’wavel”  program,  type  the 
following  on  the  command  line: 

commcuid  prompt:  wavel  <fileneLrae>  <si2e> 

Treatment  of  arguments  is  the  same  as  for  the  “vbuild”  program  above.  The  output 
of  the  “wavel”  program  are  files  that  contain  the  multiresolution  approximations  of  the 
time  signals.  One  of  these  files  is  used  as  input  to  the  “rbuild”  program  specified  by  in  the 
source  code  of  the  “rbuild”  program.  To  run  the  “rbuild”  program  type  the  following  on  the 
command  line: 

command  prompt:  rbuild  <filename>  <size> 

Treatment  of  the  arguments  is  the  same  as  for  the  “vbuild”  program  described  above. 
The  output  of  the  “rbuild”  program  represents  the  3D  Multiresolution  Wavelet  Decomposi¬ 
tion  of  the  the  original  set  of  frames.  The  output  are  files  that  can  be  animated  with  the 
“tblur”  program. 

The  “tblur”  program  generates  an  animation  of  successive  frames  of  a  scene.  To  run 
the  program,  simply  type  the  following  on  the  command  line: 

commamd  prompt:  tblur 

All  parameters  indluding  the  name  and  size  of  the  files  that  contain  the  frames  are 
hard  coded  in  the  “tblur”  program  and  must  be  properly  set  before  compilation. 


D.2  Spatial-Temporal  Analysis  Software 
D.2. 1  Listing  of  KANMOV.C 


/♦♦♦  BREATHING  KANISZA  TRIANGLE  PROGRAM  ♦*/ 


/♦  DATE:  3  Sept  91 
VERSION:  1.0 


NAME:  kanmov.c 

DESCRIPTION:  This  program  generates  a  ’’breathing**  Kanisza  Triangle 
illusion  on  the  Silicon  Graphics  computers.  There  may  be  some  code 
which  is  specific  to  the  4D  series  computers.  To  run  the  program  just 
type  <kanmov>  at  the  command  prompt.  Pressing  the  down  arrow  will  cause 
the  motion  to  appear  faster.  Continued  depressions  will  eventually  slow 
the  animation  to  a  stop  and  then  speed  up  again.  Pressing  the  up  arrow 
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causes  the  opposite  effect.  Pressing  the  right  arrow  increases  the  minimum 
closure  of  the  packmen  up  to  the  maximum  angle  defined  in  the  code. 

Pressing  the  left  arxou  decreases  the  minimum 
closure  of  the  packmen  xintil  it  reaches  0  degrees. 

READ:  NONE 

FILES  WRITTEN:  Frames  may  be  output  in  a  binzury  format  by  pressing 

the  spaceb2ur  at  any  time.  The  files  are  named  **framex.bin‘* . 
where  x  stands  for  the  number  of  frames  saved  up  to  that 
point  since  the  program  was  stzorted. 

HEADERS  USED:  <stdio.h>  <device.h>  <gl.h> 

CALLING  PROGRAMS :  NONE 
PROGRAMS  CALLED :  NONE 


AUTHOR:  J.  Stewart  Laing  (with  help  from  John  Brunderman  and  Greg  Tarr) 
HISTORY:  Initial  Version. 

♦/ 

#include  <device.h> 

# include  <gl.h> 

#include  <stdio.h> 


#define  ANGLEINC  10 


#defin*.  SETX 
#defin^  SETY 
#define  XORG 
#define  YORG 


256 

256 

200 

200 


mainO 

{ 


int 

int 

int 

long 

short 

unsigned  short 

long 

FILE 

char 


i,  j,  k=0>  speed  =  10,  total=50,  sign=l,  basel=300; 
base2=1600,  base3=  -900,  X=0,  Y=l,  maxangle=644; 
minangle=0; 

twin,  radius,  aradius,  xsize,  ysize,  center[2]; 
val; 

♦image; 

key,  tlC23,  t2[2],  t3[2],  clC2],  c2[2],  c3C2]; 

♦outf ile; 
filename [64] ; 


image  =  (unsigned  short  ♦)calloc(SETX*SETY,  sizeof (unsigned  short)); 
prefposition(X0RG,  XORG+SETX-1,  YORG,  YORG+SETY-1) ; 


twin  =  winopen("Kanisza*') ; 


doublebuff er() ; 
gconfigO; 


getsize(Axsize,  tysize); 

radius  =  .l^xsize; 

aradius  =  .31^xsize; 

center [X]  =  xsize/2.0; 

ccnter[Y]  =  ysize/2.0  +  .04*ysize; 

cl[X3  =  center [X]  -  .28*xsize; 

c1[Y3  =  center [Y]  -  .16*ysize; 

c2[X3  =  centerCX]  +  .28*xsize; 

c2[Y3  =  center [y]  -  .16*ysize; 

c3[X]  =  centerCX]; 

c3[Y3  =  center [Y]  +  .32*ysize; 

tl[X]  =  centerCX]  -  .28^xsize; 

tlCY]  =  center [Y]  +  .16*ysize; 

t2C*X]  =  centerCX]  +  .28*xsize; 

t2CY]  =  center [Y]  +  .16»ysize; 

t3CX]  =  centerCX]; 

t3CY]  =  center CY]  “  .32*ysize; 


linewidth(5) ; 
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qdevice(UPARROWKEY); 
qdevice(DOWNARROWKEY) ; 
qdevice(LEFTARROWKEY) ; 
qdevice(RIGHTARROWKEY) ; 
qdevice(ESCKEY); 
qdevice(SPACEKEY); 

while  (TRUE)  { 

while  (!qtest())  { 
total+=sign*speed; 

/♦  do  drawing  */ 

color(WHITE); 
cleaarO; 
color(BLACK) ; 

circf i( (int)cl [X] , (int)cl [Y] , (int)radius) ; 

circfi((int)c2[X] ,(int)c2[Y] , (int) radius ) ; 

circfi((int)c3CX]  ,(int)c3CY]  ,(int)ra''  us); 

bgnclosedlineO ; 

v2i(tl); 

v2i(t2); 

v2i(t3); 

endclosedlineO ; 
color(WHITE) ; 

arcfi((int)clCX] , (int)clCY] ,(int)aradius,  basel  -  total, 
basel  +  total) ; 

arcfi((int)c2CX] ,(int)c2CY] ,(int)aradius,  base2  -  total, 
base2  +  total) ; 

arcfi((int)c3CX] ,(int)c3CY3 ,(int)aradius,  base3  -  total, 
base3  +  total) ; 

if ((total  >  maxangle)  ||  (total  <  minangle))  sign  =  -sign; 
swapbuffersO; 

} 

/♦  get  keyboard  input  ♦/ 

val  =  1; 

while  (val)  { 

key  =  qread(tval); 

if((key!=UPARROWKEY)  kk  (key ! =DOWNARROWKEY)  kk  (key !=ESCKEY) 
kk  (key  !=  LEFTARROWKEY)  kk  (key  !=  RIGHTARROWKEY) 
kk  (key  !=  SPACEKEY)) 
val  =  0; 

} 


/*  act  on  keyboard  input  ♦/ 

switch  (key)  { 
case  UPARROWKEY: 

speed++;  Aspeed  +=  17;*/ 
break; 

case  DOWNARROVKEY: 
speed — ; 
break  * 

case  LEFTARROWKEY: 

minangle  -=  ANGLEINC; 

if  (minangle  <  0)  minangle  =  0; 
break; 

case  RIGHTARROWKEY: 

minangle  -<’=  ANGLEINC; 

if  (minangle  >  maxangle)  minangle  =  maxangle; 
break; 

case  ESCKEY: 
gcxitO; 
break; 

case  SPACEKEY: 

rectread(0,  0,  SETX-1,  SETY-1,  image); 
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k++; 

sprintf  (filename,  “framey.d.bin**,  k)  ; 
outfile  =  fopen (filename,  “w**); 
if(outfile  ==  NULL) 

printf ("Error  opening  /is  as  inp*  ^  file",  filename); 
else{ 

for(i=0;  KSETX^SETY;  i++)  if  (image [i] !=0)  image[i]=255; 
fwrite(image,  sizeof (unsigned  short) , (SETX^SETY) ,  outfile); 
f close(outf ile) ; 

} 

break; 

}  /♦  end  switch  */ 

}  /♦  end  while (TRUE)  ♦/ 

}  /♦  THE  END  ♦/ 

Listing  of  KANGEN.C 

/♦♦♦  BREATHING  KANISZA  TRIANGLE  PROGRAM  ♦♦/ 

/♦  DATE:  3  Sept  91 
VERSION:  1.0 
NAME:  keoiisza.c 

DESCRIPTION:  This  program  generates  a  "breathing"  Kanisza  Triangle 
illusion  on  the  Silicon  Graphics  computers.  There  may  be  some  code 
which  is  specific  to  the  4D  series  computers.  To  run  the  program  just 
type  <kanisza>  at  the  command  prompt.  Pressing  the  down  arrow  will  cause 
the  motion  to  appear  faster.  Continued  depressions  will  eventually  slow 
the  animation  to  a  stop  and  then  speed  up  again.  Pressing  the  up  arrow 
causes  the  opposite  effect.  Pressing  the  right  arrow  increases  the  minimum 
closure  of  the  packmen  up  to  the  maximum  angle  defined  in  the  code. 

Press 'ng  the  left  arrow  decreases  the  minimum 
closure  of  the  packmen  until  it  reaches  0  degrees. 

FILES  READ:  NONE 

FILES  WRITTEN:  Frames  may  be  output  in  a  binary  format  by  pressing 

the  spacebar  at  any  time.  The  files  are  named  "framex.bin". 
where  x  stands  for  the  number  of  frames  saxed  up  to  that 
point  since  the  program  was  started. 

HEADERS  USED:  <stdio.h>  <device-h>  <gl-h> 

CALLING  PROGRAMS:  NONE 
PROGRAMS  CALLED:  NONE 

AUTHOR:  J.  Stewart  Laing  (with  help  from  John  Brunderman  and  Greg  farr) 
HISTORY:  Initial  Version. 

♦/ 

#includc  <device.h> 

#include  <gl.h> 

#include  <stdio.h> 

#define  ANGLEINC  10 
#define  SETX  256 

#define  SETY  256 

#define  XORG  200 

#define  YORG  200 

mainO 

int  i,  j,  k=0,  speed  =  10,  total=50,  sign=l,  basel=300; 

int  base2  1500,  base3=  -900,  X=0,  Y=l,  maxangle=S44; 

int  minangle=0; 
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long  twin,  radius,  aradius,  xsize,  ysize,  center [2]; 

short  val ; 

unsigned  short  *image; 

long  key,  tl[2],  t2[2],  t3[23,  cl [2],  c2[2],  c3[2]; 

FILE  ♦outfile; 

char  f ilename  [64] ; 

image  =  (unsigned  short  ♦)calloc(SETX*SETy,  sizeof (unsigned  short)); 

prefposition(XORG,  XORG+SETX-1,  YORG,  YORG+SETY-1) ; 

twin  =  winopen('*Kanisza**) ; 

doublebuff erO ; 
gconfigO; 

get size (&xsize,  Aysize); 

radius  =  .l^xsize; 

aradius  =  .31*xsize; 

center CX]  =  xsize/2.0; 

center [Y]  =  ysize/2.0  +  .Cl^ysize; 

cl[X]  =  center [X3  -  .28*xsize; 

cl[Y]  =  center [Y3  -  .16*ysize; 

c2[X]  =  center [X3  +  .28*xsize; 

c2[Y]  =  centerCY]  -  .16»ysize; 

c3[X]  =  centerCX]; 

c3[Y]  =  centerCY]  +  .32*ysize; 

tl[X]  =  center [X]  -  .28*xsize; 

tl[Y3  =  centerCY]  +  .16*ysize; 

t2[X]  =  center [X]  +  .28«xsize; 

t2[Y]  =  centerCY]  +  .16*ysize; 

t3[X]  =  centerCX]; 

t3[y]  =  centerCY]  -  .32*ysize; 

linewidth(S) ; 

qdevice(UPARROWKEY) ; 
qdevice(DOVNARROVKEY) ; 
qdevice(LEFTARROWKEY) ; 
qdevice(RIGHTARROWKEY) ; 
qdeviceCESCKEY) ; 
qdevice(SPACEKEY) ; 

while  (TRUE)  { 

while  (IqtcstO)  { 
total+=sign»speed; 

/*  do  drawing  ♦/ 

color (WHITE) ; 
clear  O; 
color (BLACK) ; 

circf i((int)cl[X] ,(int)cl[Y] ,(int)radius); 

circf i((int)c2CX] ,(int)c2CY] , (int)radius) ; 

cir cf i (( int ) c3 [X] ,( int ) c3 [Y] ,( int ) radius ) ; 

bgnclosedlineO ; 

v2i(tl); 

v2i(t2); 

v2i(t3); 

endclosedlineO ; 
color(WHITE) ; 

arcfi((int)cl[X] ,(int)cl[Y] ,(int)aradius,  basel  -  total, 
basel  +  total); 

arcfi((int)c2[X] ,(int)c2[Y] ,(int)aradius,  base2  ~  total, 
base2  +  total) ; 

arcfi((int)c3CX3 ,(int)c3[Y] ,(int)aradius,  basc3  -  total, 
base3  +  total); 

if ((total  >  maxangle)  II  (total  <  minangle))  sign  =  -sign; 
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swapbuffersO ; 
speed  =  0; 

> 

/♦  get  keyboard  input  ♦/ 
val  =  1; 

while  (val)  { 

key  =  qread(kval); 

if({key!=UPARROWKEy)  kk  (keyi^DOWMARROWKEY)  kk  (key !=ESCKEy) 
kk  (key  !=  LEFTARROilKEY)  kk  (key  !=  RIGHTARROWKLY) 
kk  (key  !=  SPACEKEY)) 
val  =  0; 

} 


/♦  act  on  keyboard  input  ♦/ 

switch  (key)  { 
case  UPARROWKEY: 

/♦speed++;^/  speed  +=  17; 
break; 

case  DQtflARROUKEY: 
speed — ; 
break; 

case  LEFTARROWKEY: 

minangle  -=  AIGLEIMC; 

if  (minangle  <  0)  minangle  =  0; 
break; 

case  RIGHTARROVKEY: 

minangle  AHGLEIIC; 

if  (minangle  >  maxangle)  minangle  =  maxangle; 
break; 

case  ESCKEY: 
gexitO: 
break; 

case  SPACEKEY: 

rectread(0,  0,  SETX-1,  SETY-1.  image); 
k++; 

sprintf (filename,  "f rame%d.bin",  k); 
outfile  =  fopenCfilename,  "h"): 
if (outfile  ==  MULL) 

printfC "Error  opening  7,s  as  input  file",  filename); 
else{ 

for(i=0;  i<SETX*SETY;  i++)  if  (imaged]  !=0)  image[i]=255; 
fvrite(image,  sizeof (unsigned  short) , (SETX*SETY) ,  outfile); 
f close(outf ile) ; 

} 

break; 

}  /♦  end  svitch  */ 
y  /♦  end  while(TRUE)  ♦/ 


}  /*  THE  EHD  ♦/ 


D.2.3  Listing  of  VDUILD.C 


/***  BREATHIMG  KAKISZA  TRIAMCLE  PROGRAM  •*/ 


/♦  DATE:  3  Sept  91 
VERSION:  1.0 


KANE:  vbuild.c 


DESCRIPTIOK:  This  program  generates  two  files  that 
represent  the  x  and  y  coordinates  of  pixels  in  the  input 
image  that  eill  be  processes  with  the  wavel  program. 

FILES  READ:  Input  file  name  given  on  command  line  or  program 
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prompt . 

FILES  WRITTEN:  Two  files  named  strif.x  and  strip. y. 
HEADERS  USED:  <stdio.h>  <math.h>  ’•jsmacros .h” 
CALLING  PROGRAMS:  NONE 

PROGRAMS  CALLED:  NONE 


AUTHOR:  J.  Stewart  Laing 
HISTORY:  Initial  Version. 

*/ 

^  4k  ^  ^  4c  ^  3|c  t  ^  t  jfc  ic  jfc  ](C  4c  ]fc  %  3te  ic  4c  1 :(c Jfc 4e  :te  :(c  ^  %  3fc  If:  #  %  4c  %  3^  ))C  ](c / 

#include  <stdio.h> 

#include  *'jsmacros  .h‘* 

#include  <math,h> 


#define  FRAMES 
Mefine  THRESH 


32 

128.0 


int  ♦♦imatrixO; 
void  f ree_imatrix ( ) ; 
float  tvectorO ; 
int  ♦ivectorO; 
void  f ree^vect or ( ) ; 
void  free_ivector() ; 
float  *4cmatrix(); 
void  f ree.matr ix ( ) ; 

void  main(argc,  argv) 
int  argc; 
char  ♦argv  []  ; 

int  i,j,k,l,  *X,  ♦¥,  size,  **temp; 
char  infilenaine[64]  ,  filename  [64]  ; 
FILE  ♦infile,  ♦outfile; 
float  ♦♦in; 

/♦  load  parameters  ♦/ 


ifCargc  !=  3  argc  !=  1){ 

printf (“Usage:  fbuild  <filename>  <N  for  NxN  aurray  of  original  image>\n“); 
exit(O) ; 

} 

if(argc  ==  1){ 

printf ("\n\n\n  Input  the  size  of  the  image  (N  for  NxN  array):*'); 
scanf  (**y,d'*,  ftsize) ; 

printfC  \n\n  Input  filename  of  image  to  be  histogramed:>'*) ; 
fflush(stdout) ; 

^  scanf (“y.s",  infilename); 

else  { 

sprintf (inf ilename,  *'y,s*',  argv[l]); 
sscanf  (argv[2]  ,  “y.d",  &si2e); 

} 

/♦  allocate  memory  ♦/ 

in  =  matrixd,  size,  1,  size); 
temp  =  imatrixd,  size,  1,  size); 
looplij(si2e,  size)  temp[i][j]  =  0; 

X  =  ivectord,  size^size); 

Y  =  ivectord,  size^size); 

/♦  load  approximations  and  accumulate  high  spots  ♦/ 
looplk(FRAMES){ 

sprintf  (filename,  “y,sy,d.asc*',  infilename,  k); 

0PEN_FILE(inf ile,  filename,  “The  Vector  Builder") 
looplij (size,  size){ 
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fscanf (inf ile,  &inLi][j]): 

ifCinCi] CjJ<  THRESH){ 


if (temp [i] [j]==0) 
if (tempCi] Cj]==l) 
if (temp Ci] Cj3==2) 
if (temp Ci] Lj]==3) 

> 

gIs 

if (temp Ci] Cj]==0) 
if (tempCi] [j]==l) 
if  (tempCi]  [j3==2) 
if (temp [i] Cj]==3) 

} 

}  /★  end  ij  loop  ♦/ 
CLOSE_FILE(i,  fileneune, 
}/♦  end  k  loop  */ 

/♦  build  vectors  */ 


tempCi]  Cj]=l; 
tempCi]  Cj]=l; 
tempCi]  Cj]=3; 
tempCi]  Cj]=3; 


tempCi]  Cj]=2 
tempCi]  Cj]=3 
tempCi]  Cj]=2 
tempCi]  Cj]=3 


"The  Vector  Builder",  infile) 


1=0; 

looplij(size,  size){ 
if  (tempCi]  Cj]==3){ 

1++; 

XCl]  =  j; 

YCl]  =  i; 

}  /*  end  if  */ 

3*  /♦  end  ij  loop  */ 

/*  output  vectors  ♦/ 
sprintf (filename,  "strip. x"); 

CREATE_FILE( out file,  fileneune,  "The  Vector  Builder") 
loopli(l)  fprintf (outf ile,  "y.d\n",  XCi]); 

CLOSE_FILE(i,  filename,  "The  Vector  Builder",  outf ile) 

sprintf (filename,  "strip. y"); 

CREATE_FILE( outf ile,  fileneune,  "The  Vector  Builder") 
loopli(l)  fprintf (outf ile,  "XdXn",  YCi]); 

CL0SE_FILE(i,  filename,  "The  Vecter  Builder",  outf ile) 

free_matrix(in,  1,  size,  1,  size); 
free_imatrix(temp,  1,  size,  1,  size); 

}  /*  THE  END  */ 


D.2J^  Listing  of  SPLITlD.C 


/  :4c  %  1 4c  :tc «  t  ^  4c  4c  :<c  4c  *  *  4c  *  :«c  )(c  *  ♦  *  *  3|c  4c  ^  :tc  4c  ;fc  3|c  ife  *  4c  t  ^  ♦  *  *  *  1 / 

BREATHING  KANISZA  TRIANGLE  PROGRAM  **/ 

/4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  4c  4c  4c  4c  4c  / 

DATE:  3  Sept  91 
VERSION:  1.0 
NAME:  stripld.c 

DESCRIPTION:  This  program  strips  off  the  one  dimensional 
time  signals  based  on  the  coordinates  provided  by  the  input 
files  strip. X  and  strip. y  generated  by  the  vbuild  program. 

All  signals  are  output  in  a  signal  file  in  which  each  signal 
is  a  row  of  a  2D  matrix  stored  in  that  file. 

FILES  READ:  Input  file  name  given  on  command  line  or  progreun 
prompt.  Files  strip, x  and  strip. y  are  read  in 
automatically. 

FILES  WRITTEN:  One  file  with  the  suffix  .tsig  is  written 
which  holds  each  one  dimensional  time  signal  in  a  row. 

HEADERS  USED:  <stdio.h>  <math.h>  "jsmacros.h" 
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CALLING  PROGRAMS:  NONE 
PROGRAMS  CALLED:  NONE 


AUTHOR:  J.  Stewart  Laing 
HISTORY:  Initial  Version. 

/*  t  3|(  :(c  %  )|c  ^  t  >|C  t  4c  4c  4c  t  4c  )|C  ♦  t  ♦♦  / 

#include  <stdio.h> 

#include  "jsmacros.h*' 

#include  <math.h> 


#define  VECTORS 
#define  FRAMES 


7189 

32 


int  ♦♦imatrixO ; 
void  free^imatrixO ; 
float  *  vector  0; 
int  ♦ivector(); 
void  free^vectorO ; 
void  free_ivector() ; 

void  main(argc,  argv) 
int  argc ; 
char  ♦argv  []  ; 

{ 

int  i,j,k,l,  ♦X,  *Y,  size; 
float  ♦in; 

char  inf ilename[64] ,  filename [64] ; 

FILE  ♦infile,  ♦outfile; 

/♦  load  parameters  ♦/ 

if(argc  1=  3  &&  argc  !=  1){ 

printf (**Usage:  stripld  <filename>  <N  for  NxN  array  of  original  image>\n“); 
exit(O) ; 

> 

if (argc  ==  1){ 

printf (**\n\n\n  Input  the  size  of  the  image  (N  for  NxN  array):"); 
scanf  C'*y.d" ,  ftsize); 

printf (*•  \n\n  Input  filename  of  image  to  be  histogramed:>") ; 

ff lush(stdout) ; 

scanf ("Xs",  infilename); 

} 

else  { 

sprintf (inf ilename,  "Xs'*,  argvCl]); 
sscanf (argvC2] ,  "Xd",  ftsize); 

/♦  allocate  memory  ♦/ 

in  =  vectord,  size^size^FRAMES) ; 

X  =  ivectord,  VECTORS); 

Y  =  i vector (1,  VECTORS); 

/♦  load  strip  locations  ♦/ 

sprintf (filename,  "strip. x"); 

OPEN_FILE(inf ile,  filename,  "The  Signal  Stripper") 
loopli (VECTORS)  fscanf (inf ile,  "XdXn",  &X[i3); 

CLOSE.FILE(i,  filename,  "The  Signal  Stripper",  infile) 

sprintf (filename,  "strip.y"); 

OPEN_FILE( infile,  filename,  "The  Signal  Stripper") 
loopli(VECTORS)  fscanf  (inf  ile,  "y.dXn",  &Y[i]); 

CLOSE_FILE(i,  filename,  "The  Signal  Stripper",  infile) 

/♦  load  frames  ♦/ 
loopll(FRAMES){ 
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sprintf (filename,  *‘y,sV,d.asc'*,  infilename,  1); 

OPEN_FILE(inf ile,  fil'^name,  "The  Signal  Stripper") 
loopli(si2e*size)  f scan! (inf ile,  "XfXn",  &inC(l“l)*size*size+i] ) ; 
CLOSE_FILE(i,  filename,  "The  Signal  Stripper",  infile) 

}  /♦  end  1  loop  */ 

/♦  begin  stripping  ♦/ 

sprintf (filename,  "Xs.tsig",  infilename); 

CREATE_FILE(outf ile,  filename,  "The  Signal  Stripper") 
looplkKVECTORS,  FRAMES) 

fprintf  (outf ile,  "V.fXn" ,  inC(l-l)*size*size+YCk3*size+X[k]] ) ; 
CLOSE_FILE(i, filename,  "The  Signal  Stripper",  outf ile) 

/*  free  memory  ♦/ 

free_vector(in,  1,  size+size^FRAMES) ; 
fr9e_ivector(X,  1,  VECTORS); 
free^ivector(Y,  1,  VECTORS); 

}  /♦  THE  END  ♦/ 

D.2.5  Listing  of  Modified  WAVEl  Modules 
D.2.5.1  Listing  of  MAIN-WAVElD.C 

4c  4e  V  ^  t  *  4c  ](e  %  :4c  3(c  34e  ^  %  9tc  *  Jfc  :(C  %  ]fc  3|c  9(C  4c  94c  t  *  %  *  t  ie  *  :4c  ]fc  ]f(  4c  4c  t  t  If:  *  ^  3^  If:  ♦  ^  4c  Jfe  %  4c  }^  / 

/  4c  4c  %  4c  4c  4c  4e  4c  4c  4c  4e  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4t  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ^  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

/*♦♦  WAVELET  ANALYZER  MAIN  PROGRAM  DRIVER  **/ 

/4e  4c  4c  4e  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4C  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c4c  4c  4c  4c  V  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4: 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 
/4c  4c  4c  4c  4c  4c  4c  1 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  1 4c  4c  4c  4c4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  1 4c  4c  4c  4c  4c  4c4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

/4c  DATE:  09  April  91,  18  June  91,  16  August  91,  5  Sept  91 
VERSION:  3.1 
NAME :  main-wave . c 

DESCRIPTION:  This  program  performs  a  multiresolution  wavelet  analysis 
of  an  input  signal  with  a  wavelet  from  its  internal  library  chosen 
interactively  by  the  user.  It  handles  the  menu  interface  with  the 
user  and  drives  the  subroutines  that  take  input,  analyze,  produce 
output.  The  wavelet  decomposition  algorithm  is  a  pyramid  algorithm 
proposed  by  Stephan  Mallat  in  "A  Theory  for  Multiresolution  Signal 
Decomposition:  The  Wavelet  Representation",  published  in  IEEE  Trans, 
on  Pattern  Anal,  and  Machine  Intel.  July  89.  The  algorithm  uses  a  pair 
of  mirror  filters  derived  from  the  scaling  function,  phi(x).  The  user 
may  enter  the  intended  input  signal  file  from  the  command  line  following 
the  calling  command  'wavel*  or  the  user  may  wait  to  be  prompted  for 
the  input  file  name  and  size  after  starting  the  program  with  the  same 
command . 

FILES  READ:  NOME  (A  subroutine  reads  the  input  files.) 

FILES  WRITTEN:  NONE  (Subroutines  write  out  the  saved  data  in  files.) 
HEADERS  USED:  <stdio.h>,  "jsmacros.h" ,  "stewmath.h" 

CALLING  PROGRAMS:  NOME 

PROGRAMS  CALLED:  signalload. c,  reconstruct l.c,  decomposel.c 
AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing 

HISTORY:  Initial  Version;  adapted  from  phivl.c  and  haarvl.c 

Version  2.0  was  a  rewrite  to  ch<vnge  the  basic  algorithm  from  the  using 

inner  products  to  using  the  Mallat  algorithm  referenced  above. 

Version  3.0  adapted  the  two  dimensional  program  to  one 
dimensional  signals. 

Version  3.1  modified  the  wavel  program  to  process  the  output 
of  the  split Id  program  which  is  one  file  whose  contents  is  a 
2D  in  which  each  row  is  a  ID  time  signal.  In  this  version 
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all  menus  are  bypassed  and  only  the  approximation 
coefficients  are  actually  written  out  to  files. 

*/ 

/***************************************************************************/ 

/*************************/ 

/*  DECLARATION  SECTION  ♦/ 

/*************************/ 

#include  <stdio.h> 

#include  “jcmacros.h" 

#include  *‘stewmath.h" 

#define  VECTORS  3490 
#define  FRAMES  32 

int^vector  loadsignalO ; 
void  reconstruct 0 ; 

void  decomposeO ; 

float  **matrix() ; 

void ,  f r ee^matr ix ( ) ; 

/***********************/ 

/*  MAIN  PROGRAM  BODY  */ 

/***********************/ 

void  main(argc,  argv) 
int  argc ; 
char  *argvC]; 

/************************/ 

/*  initialize  variables  ♦/ 

/************************/ 

int  i,j,k,l,  selection; 

float  **signal; 

chaur  filenameC64]  ; 

FILE  *infile; 

/*************************************/ 

/*  load  image  to  be  eoialyzed  */ 

/*************************************/ 
if (argc  !=  3  argc  !=  1){ 

printf  (*'Usage:  wavel  <filename>  <#  of  Samples>\n*') ; 
exit(O) ; 

} 

/♦  load  time  signal  locations  */ 
signal  =  raatrixCl,  VECTORS,  1,  FRAMES); 

/*  load  signal  */ 

sprintf (filename,  "'/.s.tsig**,  argvCl]); 

0PEN_FILE(inf ile,  filename,  "wavel"); 
looplkK VECTORS,  FRAMES) 

fscanf (inf ile,  "XfXn",  ^signal. vector [k]  [1] ) ; 

CL0SE_FILE(i ,  filenair»e,  "wavel",  infile) 

/*  do  decomposition  */ 
decompose (signal,  filename); 

/♦  free  memory  ♦/ 

free_matrix(signal,  1,  VECTORS,  1,  FRAMES); 

}  /*  THE  END  */ 

D.2,5,2  Listing  of  DECOMPOSElD.C 

/***************************************************************************/ 
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/♦♦♦  WAVELET  DECOMPOSITION  SUBROUTINE  *+/ 

/  4c  ^  :tc  ^  :(e  :tc  )|e  %  3|c  :1c :(c  :(c  1 3|(  ife  3t(  4c  *  ^  4:  %  t  ^  ^ ^  ^  1 *  4: 9*:  3tc  ^  3(c :(( :(c  :4c  :tE  :4c  ^  3(e :(( :te  jfc  * }(( :<(  *  1 t  *  / 

/4c4c3tc4c4c4c4c4c4c’fc*9lc*4c4c4c4c4c4c3lc9l:t9lc4c4c*9tc*4c*t4(9tc4c4c4c4c4c4c4c9tc4c4e.i  ♦  4c 4c ♦**♦♦♦*♦' *9lc ♦  4c 4c 4c * 4c *♦♦♦♦♦*♦♦  4c ♦♦♦/ 

/*  DATE:  19  June  91,  16  August  91,  5  Sept  91 


VERSION:  2.1 


NAME:  decomposel . c 

DESCRIPTION:  This  subroutine  is  intended  to  be  part  of  a  Wavelet 
analyzing  program  called  *'wavel*’.  The  algorithm  used  is  discussed  in 
the  description  of  the  main  driver  module  called  *‘main-wavel.c'*. 

Data  is  passed  by  reference  from  the  main  driver  module.  The  data  is 
in  ascii  format  Eirrainged  in  a  vector  whose  dimension  is  a 
power  of  2.  This  requirement  has  not  only  made  programming  more 
convenient  but  is  required  by  the  convolution  routine  from  Numerical 
Recipies  in  C:  The  Art  of  Scientific  Computing. 

FILES  READ:  NONE  (Passed  by  reference  from  the  caller.) 

FILES  WRITTEN:  Two  coefficient  files  at  each  level  of  cinalysis. 

The  file  names  begin  with  the  input  signal  filename 
Eind  end  with  an  extension  of  the  form  *‘.nX"  where 
n  is  an  integer  that  represents  the  level,  X  is  one 
of  the  letters  'C'  or  ^D'  to  represent  phi 
or  psi  coefficients  respectively. 

HEADERS  USED:  <stdio.h>,  "jsraacros.h" 

CALLING  PROGRAMS:  main-wavel.c 
PROGRAMS  CALLED:  convolvel.c,  f liters. c 
AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing 
HISTORY:  Initial  Version. 

Version  2.0  nolonger  uses  the  Fourier  domain  filtering.  Now 
only  spactial  convolution  is  done.  Also,  this  version  was 
adapted  from  the  two  dimensional  version  1.0. 

Version  2.1  is  modified  to  work  with  version  3.1  of 
main-wavel.c.  This  version  specifically  processes  multiple 
ID  time  signals  as  provided  by  the  stripld.c  program. 

/4c4c4c4e4c4c:^4c4c4(4c4c4c4(4c4c4c4e4c4c*4<4e4c4c4c4c4e4t4c4c4c4c4e4c4c4c4c4c4c4‘*4c*4c4c4c4c4(4c4e4e)^4c't:t4c*9^4c4E4c4‘4(4c3^4c4c4  ;:+4t4'4'4t/ 
/4c  4c  4(  1 4t4c4c  *  4c  4: 4t4(  4(4e  4c  1 4c  4c  4c  4c  4c4c  4c  4c  ♦  4c4c  *  4c  4c  4c4c  4c  4c  1 4t4c  4c  t  *  4e4c  4t  4c  4c  1 4c  4c  4^4t  *  4c  *  4c  4t49 1 4c  1 4c4(  4(4<  ♦  4c*  1 4c  4c  1 4c  4^  4: 4t4(/ 


/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/4c  DECLARATION  SECTION  4c/ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 


#include  <stdio.h> 
#include  *'jsmacros.h'* 


#def ine 
#def ine 


VECTORS 

FRAMES 


3490 

32 


void 

void 

float 

void 

int 

void 

float 

void 


convolve () ; 
filterc  0 ; 
4cvector() ; 
free^vectorO ; 
♦ivectorO ; 
free_ivector() ; 
4'4cmatrix() ; 
free.matrixO ; 


/4c  4c  4c  4c  4c  4c  4c*  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

/4c  MAIN  PROGRAM  BODY  4c/ 
/***********************/ 


void  decompose (signal,  infilename) 
float  4c*signal; 
char  inf  il  ename  []  ; 

{ 

/************************/ 


I 


I 


! 
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/♦  declctre  variables  */ 

/  :tc  ]«( 9(c  ^  :|e  4c  :|c  )|c  9tc  jfc  9|t  *  :(c  :4c  4c  9(e / 


int 

float_vector 

float^vector 

float_vector 

float^vector 

float_vector 

float_vector 

float^vector 

float 

FILE 

FILE 

char 


i,  j,  k,  maxlevel,  wavelet^type; 

h_of„n,  h„of_nflipo,  g_of_r,  g^of^nflipo,  phi,  phiflipo; 
phiflipc,  ♦phiflipcpointer  •'  ftphiflipc; 

*h_of_npointer  =  &h_of_n,  *h_of_nflipopointer  =  &h.of.nflipo; 
^g..of_npoiiiter  =  &g_of_n,  *g_of_nflipopointer  =  ftg^of _nf lipo; 
♦phipointer  =  &phi,  *phif lipopointer  =  ftphiflipo; 
c_coef,  d_coef; 

*c_coefpointer=  &c_coef  ,’*'d_coefpointer=  icd^coef; 

’•'★temp; 

★outfilelc,  ★outfile2c,  ★outfileSc,  ★outfileld,  ★outfile2d; 
★outf ileSd; 

filenameC64] ,  wave_code [64] ; 


/  4c  4c  4c  4e  4i  4e  4c  4e  %  4c  3tc  4c  4c  4c  4c  4c  4c  4c  4c  4e  ★  ★  ★  ★  / 

/♦  allocate  memory  +/ 

/  4c  4c  4c  4c  4e  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  3^  4c  4c  4c  4c  4c  / 


temp  =  matrixCl,  VECTORS,  1,  FRAMES); 
c_coef .length  =  FRAMES; 
c_coef .veccor  =  vectorCl,  c^coef .length) ; 
loopli(c_coef .length)  c^coef .vector [i]  =  0.0; 
d^coef  .length  =  FR/^MES; 
d^coef .vector  =  vectorCl,  d^coef .length) ; 
loopli(d_coef .length)  d.coef. vector [i]  =  0.0; 
h_of..n.  vector  =  vectorCl  ,FRAMES*2) ; 
loopliC?RAMES4c2)  h_of_n. vector [i]  =  0.0; 
g_of_n.  vector  =  vectorCl  ,FRAMES4c2) ; 
loopliCFRAMES4'2)  g_of _n. vector [i]  =  0.0; 
h_of_nflipo.  vector  =  vectorCl  ,FRAMES4'2)  ; 
loopliCFRAMES+2)  h^of^nflipo. vector [i]  =  0.0; 
g-Of_nflipo. vector  =  vectorCl, FRAMES+2) ; 
loopliCFRAMES4c2)  g_of_nflipo. vector [i]  =  0.0; 
phi.  vector  =  vectorCl,2’*'FRAHES); 
loopliCFRAMES*2)  phi. vectorCi]  =  0.0; 
phiflipo. vector  =  vector Cl,2*FRAMES); 
loopliCFRAMES+2)  phiflipo. vector [i]  =0.0; 
phiflipc. vector  =  vectorCl ,2*FRAMES) ; 
loopliCFRAMES*2)  phiflipc. vector [i]  =  0.0; 

/4e  4c  4c  4c  4c4c  ♦  ★  ♦  4c  4(  4t  4c4c  ★  4t4c  4c  4c  4c4c4c  4e  ♦  4c  4c  t  ★  *  4c  4c4c  ★  ★  ♦*/ 

/4c  display  menu  ★/ 

/4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  V  4c  4c  4c  4c  4c  4c  4c  4c/ 


/* 

print! ("\n\n 

DECOMPOSITION  MENU\n\n"); 

print! (" 

1 

= 

Piece-wis^  Constant .  ('N/A)\n*') 

print! (" 

2 

= 

Piece-wise  Linear .  (N/A)V;*')  : 

print! ( " 

3 

Daubechies  N=2.\n“); 

print! (" 

4 

= 

Daubechies  N=3.\n"); 

print!  O' 

5 

= 

Daubechies  N=4.\n"); 

print!  O' 

6 

= 

Daubechies  N=5.\n"); 

print!  O' 

7 

= 

Daubechies  N=6 .  \n** ) ; 

print!  O' 

8 

= 

Daubechies  N=7.\n"); 

print!  O' 

9 

= 

Daubechies  N=8.\u*'); 

print!  O' 

10 

= 

Daubechies  N=9.\n*'); 

print!  O' 

11 

= 

Daubechies  N=10.\n'*); 

print!  O' 

12 

= 

Splines. \n'*) ; 

print! (" 

13 

= 

Morlet.(N/A)W); 

print! ("\n  1 

Enter  an  integer  1-13:  **); 

scanf  (**y,d**,  &wavelet_type) ; 

4c/ 

wavelet^type  =  3; 


197 


/*  error  handling  for  invalid  input  ♦/ 

if  (wavelet^type  <  3  I  I  yavelet^type  >  13)  { 

printf (*‘\nYou  have  chosen  an  Invalid  Wavelet  type  or'*); 
printf ("\nthis  type  is  not  currently  available.**); 

}  /♦  end  if  ♦/ 
else  { 

/*  Set  wave_code  for  use  in  output  filen‘*’.j  r  .  .*/ 

if  (wavelet.type  ==  3)  sprintf  (wavc_cc*  - ,  '\V. 
if  (wavelet_type  ==  4)  r  printf  (wave.cvJ^L  j  ; 

if  (wavelet.type  ==  5)  sprintf (uave_code,  \<j4'*); 

if  (wavelet^type  ==  6)  sprintf (wave_code,  dbS'*); 

if  (wavelet^type  ==  7)  sprintf (wave_code,  * db6'0 ; 

if  (wavelet _type  ==  8)  sprintf( wav encode,  ^ 

if  (wavelet^  type  ==  9)  sprintf(  wav  encode.  '^^<^8'*); 

if  (wavelet^type  ==  10)  sprintf  ^’’ave_couvi.  \.o9**); 
if  twavelet^type  =“  11)  sprintf^  wave  .code,  **do0**); 
if  (wavelet_type  ==  12)  sprintf (wave_code,  **spl**); 

/*  Generate  Phi  and  Filters  ♦/ 

/ 9|c:|c3(c4(i  :|c4c4c:((4i4c:(c:tc}tc]fc;(c4c3tcj(e;(c3(c^4c*4c**3tc/ 

filters  ( wavel el „type , h_of _npo int er , g_of _npoi ’ it er , phipoint er ) ; 
flipoCphipointer ,  phiflipopointer) ; 

h_of_nflipopointer  =  h^of^npointer; 
g_of_nflipopointer  -  g.of_npointer; 

/*  open  files  */ 

sprintf  (filename,  **5(s.*/ld.c.Xs*' ,  infilename,  1,  wave^code) ; 
CREATE..FILE(outf ilelc,  filename,  *'The  Wavelet  Analyzer**) 
sprintf  (filename,  **y,s.y.d.c,y,s**,  infilename,  2,  wave^code) ; 
CREATE_FILE(cutf ile2c,  filename,  "The  Wavelet  Analyzer**) 
sprintf  (filename,  **ys.yd.  c. /I /* ,  infilename,  3,  wave_code) ; 
CREATE_FILE(outf ile3c,  filename,  "The  Wavelet  Analyzer**; 

/♦  sprintf  (filename,  **y,s.y,d,d.y.s**,  infilename,  l,wave_code)  ; 

CREATE_FILE(outfileld,  filename,  "The  Wavelet  Analyzer**) 
sprintf  (filename,  "y.s.Xd.d.y.s",  infilename,  2,wave_code) ; 
CREATE_FILE(outf ile2d,  filename,  "The  Wavelet  Analyzer") 
sprintf (filename,  "Xs.yd.d.ys**,  infilename,  3, wave. code) ; 
CREATE_FILE(outf ile3d,  filename,  **The  Wavelet  Analyzer**) 

♦/ 

/*  Call  convolution  routine  and  save  the  coefficient  vectors  for  ♦/ 
/*  each  level  of  einalysis.  ♦/ 

looplk(3){ 

looplj(VECT0RS){ 

convolve(tempCj] ,  h_of_nf lipopo inter ,  g_of ^nflipopointer , 
c^coef pointer ,  d.coefpointer) ; 
loopli(c_coef .length)  tempCj]  [i]  =  c_coef. vector [i] ; 

} 

switch  (k){ 
case  1: 

looplij (VECTORS,  c.coef .length) 

fprintf  (outfilelc,"y,f\n'*,tsmpCi]  Cj]) ; 
case  2: 

looplij (VECTORS,  c_coef .length) 

f printf  (outf  ile2c ,  **y,f \n" , temp [i]  Cj]  ) ; 
case  3: 

looplij (VECTORS,  c^coef .length) 
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f pr intf  (outf  iloSc ,  *'•/*! \n*' , temp  [i]  [ j]  ) ; 

> 

}  /♦  end  k  loop 

CLOSE^FILEd,  filenarne,  "The  Wavelet  Analyzer",  outfilelc) 
CLOSE_FILE(i,  filename,  Wavelet  Analyzer",  outfile2c) 

CLOSE^FILE(i,  filencime,  "The  Wavelet  Analyzer",  outfileSc) 

/♦  CLQSE„FILE(i,  filename,  "The  Wavelet  Analyzer",  outfileld) 
CLOSE_riLE(i,  filename,  "The  Wavelet  Analyzer",  outfile2d) 
CLOSE_FILE(i,  filename,  "The  Wavelet  Analyzer",  outfileSd) 

♦/ 

}  /♦  end  else  ♦/ 

/♦  free  memory  */ 

free^matrir ^temp,  1,  VECTORS,  1,  FRAMES); 
free^vectc.  ^c^coef. vector,  1,  c.  cc:ef.  length)  ; 
free^vectoi  (c._coef. vector,  1,  d_^'c-ef  .length)  ; 
f ree^vector (h_of _n . vector , 1 , FRAMES+2) ; 
f r^e_vector(g_of_n. vector , 1,FRAMES*2) ; 
f ree^vector (phi . vector , 1 , FRAMES*2) : 
free_vector(phiflipo .vector, 1 ,FRAMES*2) ; 
free_vector(phiflipc. vector , 1 ,FRAMES*2) ; 

/♦  THE  END  ♦/ 

} 

D.2.6  Listing  of  RBUILD^C 


/♦♦♦  REBUILD  PROGRAM  ♦**/ 

/♦  DATE:  3  Sept  91 
VERSION:  1.0 
NAME:  rbuild.c 

DESCRIPTION:  This  prograiri  rebuilds  the  frames  of  the  scene 
that  is  under  analysis  from  the  output  of  the  wavel 
program. 

FILES  READ:  Input  file  name  given  on  command  line  or  program 
prompt.  The  files  strip. x  aind  strip. y  generated  by  the 
vbuild  program  are  the  coordinates  that  tell  the  program 
where  to  place  the  ID  time  signals  back  in  the  frames. 

FILE'^J  WRITTEN-  A  new  set  of  frames  with  suffix  .comb. 

HEADSLo  USED:  <stdio.h>  <math.h>  "jsmacros.h" 

C ALLI  j-  G  PROGRAMS :  NONE 
PROGRAMS  CALLED:  NONE 

AUTHOR:  J.  Steweurt  Laing 
.HISTORY:  Initial  Version. 

♦/ 

#include  <stdio.h> 

#include  "jsmacros.h" 

# include  <math.h> 


#define  VECTORS 
^define  FRAMES 
#define  LEVEL 


3490 

32 

3 


float  ♦♦matrixO; 
void  f ree.matr ix ( ) ; 
float  ♦vectorO ; 
int  ♦ivectorO ; 
void  free^vectorO ; 
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void  free.ivectorO ; 
int  ♦♦imatrixO ; 
void  free^imatrixO ; 

void  maiii(2Lrgc,  argv) 
int  argc ; 
char  *argvn; 

int  i,j,k,l,  ♦Y,  size,  n; 
char  inliler‘aineC64]  ,  filename  [64]  ; 

FILE  ♦infile,  ♦outfile; 
float  *in,  ♦♦temp; 
void  expdO ; 

/♦  load  parameters  ♦/ 
if(argc  !=  3  kk  argc  !=  1){ 

printf (“Usage:  f build  <filename>  <N  for  NxN  array  of  original  image>\n'*); 
exit(O) ; 

> 

if (argc  ==  1){ 

printf (“\n\n\n  Input  the  size  of  the  image  (N  for  NxN  array):**); 
scanf(**Xd“,  ftsize); 

printf(**  \n\n  Input  filename  o'  signals:**); 
f f lush(stdout) ; 

scanf (’‘Vis**,  infilename);  printl(**\n'*'': 

} 

else  { 

spr int f (infilename,  “Xs**,  argvElj); 
sscanf  (argv[2]  ,  *'y,d**,  ksize); 

y 

/♦  allocate  memory  ♦/ 

X  =  ivectord,  VECTORS); 

Y  =  ivectord,  VECTORS); 

in  =  vectord,  size^size^FRAMES) ; 

temp  =  matrixd,  VECTORS,  1,  FRAMES); 

load  strip  locations  ♦/ 

sprintf  (filename,  **stzip.x**) ; 

OPEK_FILE(infile,  filename,  **The  Signal  Stripper**) 
loopli (VECTORS)  fscanf (inf ile,  **'/.d\n**,  A:X[i]); 

CLOSE_FILE(i,  filename,  “The  Signal  Stripper**,  infile) 

sprintf (filename,  “strip.y”); 

OPEN_FILE(inf ile,  filename,  “The  Signal  Stripper**) 
loopli(VECTORS)  fscanf  (inf  ile,  **Xd\n“.  A:Y[i3); 

CLOSE_FILE(i,  filename,  “The  Signal  Stripper**,  infile) 

/♦  load  frames  ♦/ 
loopll(FRAMES){ 

sprintf  (filename,  **y,sy,d.asc** ,  infilename,  1); 

OPEN_FILE(inf ile,  filename,  *'The  Signal  Rebuilder**) 
loopli(size^size)  fscanf  (inf  ile,  *'y,f\n**,  &in[(l*-l)*si2e*size+i3  ) ; 
CLOSS_FILE(i,  filename,  “The  Signal  Rebuilder**, 

}  /♦  end  1  loop  ♦/ 

/♦  load  signals  */ 

n  =  FaAMES/(int)pow(2.0,  ( double) LEVEL) ; 

sprintf  (filename,  **y,s.tsig.y.d.c.db2“,  infileneune,  LEVEL); 

OPEN_FILE(inf ile,  filename,  **The  Signal  Rebuilder**) 
looplkK VECTORS,  n) 

fscanf  (inf  ile,  “XfXn**,  AtempCk]  [1])  ; 

CLOSE^FILE(i,f ilenau,^,  ’*The  Signal  Rcbuilder“,inf ile) 
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/♦  rebuild  frames  */ 

loopli(LEVEL){ 

expd(temp,  VECTORS,  n); 
n  *=  2; 

} 

looplkl (VECTORS,  FRAMES) 

inC(l*-l)*si2e^size+Y[k]*size+X[k]]  =  temp[k][l]; 

/*  output  frames  ♦/ 
loopll (FRAMES) { 

sprintf (filename,  *'y,sy,d.asc,comb.3.  ".db2’' ,  infilename,  1); 
CREATE^FILE(outfile,  filename,  "The  Signal  Rebuilder") 
loopli(size*size)  fprintf (outfile,  "XAn",  inC(l-l)*size*size+i3 ) ; 
CLOSE_FILE(i,  filename,  "The  Signal  Rebuilder",  outfile) 

} 

free_ivector(X,  1,  VECTORS); 
free_ivector(Y,  1,  VECTORS); 
free_vector(in,  1,  size*size*FRAMES) ; 
free_matrix(temp,  1,  VECTORS,  1,  FRAMES); 

}  /♦  THE  END  ♦/ 

void  expd(in,  rows,  cols) 
int  rows,  cols; 
float  ♦♦in; 

int  i,j; 

float  ♦yp,  ♦tmp,  ♦tab; 

.void  splineO;  splintQ; 

yp  =  vector (1,  cols); 
tab  =  vectord,  cols); 
tmp  =  vectord,  2^cois); 

loopli(cols)  tabCi]  =  (float) (2^i) ; 
loopli(rows)*C 

spline (tab,  in[i],  cols,  l.OeSO,  1.0e30,  yp) ; 
looplj(cols){ 

tmp[2^j]  =  in[i][j]; 

splint(tab,  inCi],  yp,  cols,  (float) (2^j-l) ,  fttmp[2^j-l] ) ; 

} 

looplj(2^cols)  inCilCj]  =  tmp[j]; 

} 

free„vector(yp,  1,  cols); 
free_vector(tab,  1,  cols); 
frec_vector(tmp,  1,  2^cols); 

}  /♦  THE  END  ♦/ 

Listing  of  TBLUR.C 


/♦♦♦  ANIMATION  PROGRAM  FOR  A  SET  OF  FRAMES  IN  A  SCENE  ♦♦♦/ 


/♦  DATE:  3  Sept  91 
VERSION:  1.0 


NAME:  tblur.c 

DESCRIPTION:  This  program  animates  the  frames  of  a  scene 
on  the  Silicon  Graphics  computers.  There  may  be  some  code 
which  is  specific  to  the  4D  series  computers.  To  run  the  program 
just  type  tblur  at  the  command  prompt.  Pressing  the  escape 
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key  will  halt  the  program. 

FILES  READ:  The  frames  of  the  scene  to  be  animated. 
FILES  WRITTEN:  NONE 


HEADERS  USED:  <stdio.h>  <device.h>  <gl.h> 
CALLING  PROGRAMS:  NONE 

PROGRAMS  CALLED :  NONE 


AUTHOR:  J.  Stewart  Laing  (with  help  from  John  Brundermam  and  Greg  Tarr) 
HISTORY:  Initial  Version. 

♦/ 

#include  <device.h> 

#iiiclude  <gl.h> 

#include  <stdio.h> 


#define  SETX  256 
#define  SETY  256 
#define  XORG  200 
#define  YORG  200 
#define  FRAMES  32 


mainO 

{ 

int  i,j,k,l; 

long  twin,  key; 

imsigned  short  ♦image,  ♦♦buffer; 

short  val ; 

char  f ilename [64] ; 

FILE  ♦infile; 

prefpositionCXORG,  XORG+SETX-1,  YORG,  YORG+SETY-l) ; 
twin  =  winopen(**Kanisza**) ; 
doublebuff  er ( ) ; 
gconfigO; 

/♦  read  frames  into  buffer  ♦/ 

buffer  =  (Colorindex  ♦♦)calloc(FRAMES,  sizeof (Colorindex  ♦)); 
for(i=0;  i<FRAMES;  i++) 

bufferCi]  =  (Colorindex  ♦)calloc(SETX*SETY,  sizeof (Colorindex)) ; 

for(i=l;  i<=FRAMES;  i++){ 

sprintf  (filename,  **frame%d.bin.comb** ,  i)  ; 
infile  =  fopen(f ilename,  **r**); 
if (infile  ==  NULL){ 

printf ("Error  opening  */s  as  input  file\n",  filename); 
gexitO; 

} 

else{ 

fread(buff erCi“l] ,  sizeof (unsigned  short) , (SETX^SETY) ,  infile) ; 
fclose(infile); 

for(j=0;j<SETX»SETY;j++)  if (buffer [i-1] [j] !=0)  bufferCi-1]  [j]=7; 

} 

} 

/♦  anniraate  new  frames  ♦/ 

qdevice(ESCKEY); 

while  (TRUE)  { 

while  (!qtest())  { 

for(i=0;  KFRAMES;  i++){ 

rectwrite(0,  0,  SETX-1,  SETY-1,  bufferCi]); 
swapbuffersO ; 

> 

for(i=FRAHES-l;  i>0;  i“){ 

rectwrite(0,  0,  SETX-i,  SETY-l,  bufferCi]); 
swapbuffersO ; 

} 


2U2 


/*  get  keyboard  input  ♦/ 
val  =  1; 

vhile  (val)  { 

key  =  qread(ftval) ; 
if(key!=ESCKEY)  val  =  0; 

} 

/*  act  on  keyboard  input  ♦/ 

switch  (key)  { 
case  ESCKEY: 
gexitO; 
break; 

} 

} 

} 
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Appendix  E.  Software  for  the  Boundary  Contour  Model 


E.l  System  Description 

7  he  following  programs  are  used  in  the  boundary  contour  analysis  of  Chapter  VIII: 

1.  waveS  -  The  Multiresolution  Wavelet  Decomposition  and  Reconstruction  program  for 

two  dimensional  images  (See  Appendix  B.l). 

2.  lenrov)  -  A  program  used  to  perform  a  lateral  excitation  along  the  rows  of  a  two 

dimensional  array  of  wavelet  detail  coefficients. 

3.  lencol  ■  A  program  used  to  perform  a  lateral  excitation  along  the  columns  of  a  two 

dimensional  array  of  wavelet  detail  coefficient'-. 

In  the  analysis  of  Chapter  VIII,  we  use  the  lenroxo  program  to  spread  horizontal  energy 
along  the  rows  of  the  dl  and  d3  wavelet  detail  coefficients  (see  explanation  in  Chapter  III 
and  VI).  To  run  this  program,  type  the  following  on  the  command  line: 

commeund  prompt:  lenrow  <filename>  <size> 

The  arguements  are  optional.  If  not  entered  on  the  command  line,  the  program  will 
prompt  the  user  for  them  interactivley. 

Similar  to  the  lenrow  program  the  lencol  program  performs  a  lateral  excitation  along 
the  columns  intended  for  the  dl  and  d3  wavelet  detain  coefficients.  To  run  this  program, 
type  the  following  at  the  command  prompt: 

commauid  prompt:  lencol  <filen2une>  <size> 

The  arguements  are  optional.  If  not  entered  on  the  command  line,  the  program  will 
prompt  the  user  for  them  interactivley. 

The  output  of  both  programs  is  a  file  the  same  size  as  the  input  file  whose  name  is 
made  up  of  the  input  file  name  with  a  .len  suffix  added.  Data  is  stored  in  .ASCII  format  as 
discussed  previously. 
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E.2  Boundary  Contour  Model  Analysis  Software 
E.2.1  Listing  of  LENROW.C 


/  :(i  %  4c  itc  ifc  4c  4c  #  34k  4c  4c  9^  ^  ^  jfc  4c  ^  %  4c  4c  %  ]|c ^  t  4:  ](c  :(c  4c  :|e  %  4c  4c  / 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/4C4C4C  LATERAL  EXCITATION  ALONG  ROWS  4c4c/ 

/  4c  4c  4t  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  1 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  4c  4c  4c  4c  / 
/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  *  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/4C  DATE:  27  Sept  91 
VERSION:  1*0 
NAME:  lenrow.c 

DESCRIPTION:  This  program  performs  a  lateral  excitation 
along  the  rows  a  the  input  ASCII  data  file.  The  extent  of 
the  receptive  field  is  determined  by  #define  P.  This  program 
is  intended  to  be  part  of  a  Boundary  Contour  Model  devised 
for  the  author's  masters  thesis. 

FILES  READ:  wavelet  detail  images  as  genterated  by  the  wave2 
program. 

FILES  WRITTEN:  The  output  file  has  the  name  of  the  input 
file  with  the  suffix  .len  added. 

HEADERS  USED:  <stdio.h>,  **jsmacros.h",  *'stewmath,h** , 

<math.h> 

CALLING  PROGRAMS :  NONE 
PROGRAMS  CALLED:  NONE 

AUTHOR:  J.  Stewart  Laing 
HISTORY:  Initial  Version. 

♦/ 

/4e  4c  4c  4c  4c  4c  *  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 
/4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  9^  4(  4c  4c  4c  4c  9^  4c  4c  4c  9^  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  9^  4c  4c  4c  / 


/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4t  4c  4c  4c  4c  4c  4c  4c  / 

/4C  DECLARATION  SECTION  4c/ 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 


#include  <stdlib . h> 

#include  <stdio . h> 

#include  *' jsmacros.h** 

#include  <math.h> 


#def ine 
/4c#def  ine 
#def ine 
#def ine 


F 

P 

POS 

NEG 


-1.0 

64c/ 

1 

0 


/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  9^  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/4C  FUNCTION  BODY  4c/ 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4C  4c  4c  4c  4c/ 

float  4c4cinatrix() ; 
void  free^matrixO ; 
int  4c4ciinatrix() ; 
void  f r ee^imatr ix ( ) ; 

void  main(argc,  argv) 
int  argc; 
char  4cargv  [] ; 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/4c  initialize  variables  4c/ 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

int  i>jik>P,  extent*  4c4cfiag*  P; 

FILE  4c  inf  ile  *  4coutf  ile ; 

float.array  input,  output; 
char  inf ilename[64] ,  latfileC64]; 

float  latf actor  =0.0,  influence; 
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/  ^  ^  :|e  )|c  *  Die  9*c  *  ^  *  4c  4c  t  / 

/*  test  parameters  */ 

/4c  4c  4t  4c  4c  4c  4c  4c  4t  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

ifCcLTgc  !=  4  &&  arge  !=  1){ 

printf  (**Usage:  threshold  <fileiiaine>  <si2e>\n”); 
exit(O) ; 

} 

/  4c  4c  4e  4c  4(  4c  4e  4c  4c  %  4c  4e  4c  4c  4c  4c  *  4c  4c  4c  4c  4c  4c  4c  4C  4c  4c  4c  4c  4c  4c  4  4c  4c  4c  4c  4c  4c  4c  / 

/*  prompt  for  peurameters  if  not  input  */ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

if(argc  ==  1){ 

printf (*'\n\n\n  Input  the  size  of  the  input  N  for  NxN:'*); 
scanf ftinput.ROW); 

printf (**  \n\n  What  is  the  input  filename?:'*);  fflush(stdout) ; 
scanf ('*y#s**,  infilename); 

printf('*\n  Input  the  lateral  extent  of  receptive  field: ");fflush(stdout); 
scanf('*yd",  &P); 

} 

/  4c  4c  4c  4c  4c  4c  4: 4c  4c  4e  4c  4c  4c  4t  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

/♦  use  peirameters  given  on  command  line  */ 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

else  { 

sprintf (inf ilenarae,  "ys",  argv[l3); 
sscanf (argv [2] ,  "yd" ,  &input . ROW) ; 
sscanf (argv[3] ,  "yd",  &P); 

input. COL  =  input. ROW; 

input. array  =  matrix(l,  input . R0W+2+P ,  1,  input .COL+24'P)  ; 
looplij  (input  ,R0W+24cP,  input.  C0L+2*P)  input  .array  [i]  Cj]  =  0.0; 
output. ROW  =  input. ROW; 
output. COL  =  input. COL; 

output. array  =  matrixd,  output .R0W+2*P,  l,  output .C0L+2+P) ; 
looplij  (output.  ROW+24'P,  output.  C0L+2*P)  output  .array  Ci]  [j]  =  0.0; 
flag  =  imatrixd,  input. ROW,  1,  input. COL); 
looplij (input .ROW,  input. COL)  flag[i][j]  =  1; 

/;!.  4t  4e  4c  4c  4: 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/4c  open  input  file  and  read  in  data  4c/ 

/  4c  4c  4e  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

printf ("\nreading  data  file...\n");  ff lush(stdout) ; 

OPEN^FILE  (infile,  infilename,  "The  latnet") 
looplij (input. ROW,  input. COL) 

fscanf (inf ile,  "yf\n",  &input. array [i+P] [j+P]) ; 

CLOSE_FILE(i,  infilename,  "The  latnet",  infile) 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  1 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

/4c  prompt  user  for  latnet  factor  4c/ 

/sfcjfcjtc  4c  %  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/4c  printf  ("  \n\n  Input  latnet  factor (f loat)  :")  ; 

scanf("yf",  &latfactor); 

printf ("\n\n  Input  latnet  extent (integer) :") ; 
scanfCyd",  ^extent); 

*/ 

/  4c  4c  4c  4e  4e  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/*  This  pELTt  actually  performs  the  lateral  excitation.  4c/ 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  1 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

printf ("\nperforming  lateral  excitation. . .\n") ;  fflush(stdout) ; 
for(i=l+P;  i<=input .ROW+P;  i++) 
for(j=l+P;  j<=inp  '  COL+P;  j++){ 
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output .array [i] Cj]  =  input. array [i] [j]  -  input .array [i] [j] ; 
if (output. array Ci] Cj] ==0.0)  flagCi-P] [j-P]  =  POS; 
else  flagCi-P]  [j-P]  =  NEC; 

input .array Ci] Cj]  =  (float)fabs ((double) input .array Ci] Cj]) ; 

} 

for(p=  -P;  p<=  -1;  p++) 

latfactor  +=  (float)pow(2.0, (double)p) ; 
for(p=l;  p<=P;  p++) 

latfactor  +=  (float)pow(2.0,  -(double)p); 
for(i=l+P;  i<=output  .rvOW+P;  i++) 
for(j=l+P;  j<=output .COL+P;  j++){ 

output .array Ci] Cj]  =  latfactor  ♦  input .array Ci] Cj] ; 
for(p=  -P;  p<=  -1;  p++) 

output . array Ci] Cj]”=input .array Ci] Cj+p]*(float)pow(2.0, (double)p) ; 
for(p=l;  p<=P;  p++) 

output . array Ci] Cj]-=input .array Ci] Cj+p]*(float)pow(2.0,-(double)p) ; 
output .array Ci] Cj]  *=  F; 

} 

for(i=l+P;  i<=output .ROW+P;  i++) 
for(j=3+P;  j<=output .COL+P;  j++) 

if (flagCi~P] Cj-P]=-NEG)  output .array Ci] Cj]  =  -output .array Ci] Cj] ; 

/♦  Create  file  and  output  data.*/ 

printf ("\nwriting  output  data  file...\n");  fflush(stdout) ; 
sprintf  (latf ile,  "/.s-len'*,  inf ilename)  ; 

CREATE_FILE( out file,  latfile,  "The  Thresholder") 
loopli j (output . ROW , output . COL) 

fprintf  (outf  ile,  "/.fXn",  output  .array  Ci+P]  Cj+P]) ; 

CL0SE.FILE(i,  latfile,  "The  latnet",outfile) 

/  >|e  4t  Sfc  3|c  3|C  94c  :1c  ]|c  9tc  He  4c  *  ♦  34c  1 4c  4c  Jfc  3|c  t  J|c  :4c  %  t  *  *  *  *  */ 

/*  Tell  the  user  where  the  output  file  is  located.  */ 

/4c  4c  4c4c  4c*  34c  **  *4c4e  He  4^  34c4c  4c  4c4c4c*1c  4c4c  *  1c  4c  4c4c  4c)4e  *4ta4c***  **  4c***  **  ***  *  *  *  */ 

printf ("\nCr eat ed  new  file  called:  y,s\n\n",  latfile); 

free_matrix(  input .  array ,  1 ,  input .  R0W+2*P ,  1 ,  input .  C0L+2*P) ; 
f  r ee^matr ix ( output . array ,  1 ,  output .  R0W+2*P ,  1 ,  output .  C0L+2*P)  ; 
free_imatrix(flag,  1,  input. ROW,  1,  input. COL); 

}  /*  THE  END  */ 

E.2.2  Listing  of  LENCOL.C 

/4c  4c  4c  4c  4c  4c  4c********************************************************************/ 

/************************************* *****************^********************/ 
/*♦*  LATERAL  EXCITATION  ALONG  COLUMNS  4c*/ 

/***************************************************************************/ 
/*************************************************************************** / 
/♦  DATE:  27  Sept  91 

VERSION:  1.0 
NAME:  lencol.c 

DESCRIPTION:  This  program  perforins  a  lateral  excitation 
along  the  cols  a  the  input  ASCII  data  file.  The  extent  of 
the  receptive  field  is  determined  by  #define  P.  This  program 
is  intended  to  be  part  of  a  Boundary  Contour  Model  devised 
for  the  author ^s  masters  thesis. 

FILES  READ:  wavelet  detail  images  as  genterated  by  the  wave2 
program . 

FILES  WRITTEN:  The  output  file  has  the  name  of  the  input 
file  with  the  suffix  .len  added. 
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HEADERS  USED:  <stdio.h>,  **jsmacros.h",  "stewmath.h** , 

<math . h> 

CALLING  PROGRAMS :  NONE 
PROGRAMS  CALLED:  NONE 

AUTHOR:  J.  Stewart  Laing 
HISTORY:  Initial  Version. 

/  ]|e  ^  t  %  4c  *  *  ic  3|c ]|C  ]|c ^  1 ^  *  *  4c  *  *  *  ><(  4e  4c  4c  %  t  :|c  ic  :4c  %  ]fe  :4c  t  ♦  ♦  ♦  2<c  %  4c  sfe  / 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  4c  4c  4c  4c  1 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  *  4c  4c  4c  4c  4c  4<  4: 4c  4c  4c  / 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

/♦  DECLARATION  SECTION  4c/ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

#include  <st dlib . h> 

#include  <stdio . h> 

#include  *' j  smacros .  h*' 

#include  <math.h> 

#def  ine  F  -1,0 

/*#define  P  64c/ 

#define  POS  1 

#define  NEG  0 

/  4(  4e  4c  4c  4c  4c  4c  4c  4c  9^  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/♦  FUNCTION  BODY  4c/ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4e  4c  4c  4c  4c  4c  4c  / 

float  4c4cinatrix() ; 
void  free^matrixO ; 
int  4c4cimatrix() ; 
void  free^imatrixO ; 

void  mainCargc,  argv) 
int  argc; 
chsir  4cargv  [] ; 

{ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ^  4c  4c  4c  4c  4c  4c  4c  / 

/4c  initialize  variables  4c/ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

int  i,j,k,p,  extent,  4c4cfiag,  P; 

FILE  ♦infile,  ♦outfile; 

float_array  input,  output; 
char  inf  ilenaine[64]  ,  latfileC64]; 

float  latf actor  =  0.0,  influence; 

/  4c  4c  4c  4t  4e  4c  4c  4c  4c  4c  4c  4t  4t  4c  4c  4c  4c  4c  4c  4c  4e  4c  4c  / 

/4c  test  parameters  ♦/ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

if(argc  !=  4  kk  argc  !=  1){ 

printf ("Usage:  threshold  <filename>  <size>\n"); 
exit(O) ; 

} 

/4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

/4c  prompt  for  parameters  if  not  input  */ 

/  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

if(argc  ==  1){ 

printf ("\n\n\n  Input  the  size  of  the  input  N  for  NxN:"); 
scanf ("•/•d",  ftinput.ROW); 

printf ("  \n\n  What  is  the  input  filename?:");  fflush(stdout) ; 
scanf("y,s",  infilename); 

printf ("\n  Input  the  lateral  extent  of  receptive  field:*') ;fflush(stdout) ; 
scanf("y*d",  &P); 

} 

/  4c  4c  4c  4c  4c  4c  4c  4c  9^  9^  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  1 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 
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/♦  use  parameters  given  on  command  line  ♦/ 

/  )|C  :tc  3(e  Jtc  9|e  ^  1 3|C  4c  3k  t  4c  4^  3|e  3|c  :i|(  sf:  %  %  / 

else  { 

sprintf (infilename,  “’/s**,  argv[l]); 
sscanf  (argv  [2]  ,  **y*d*' ,  &input .  ROW)  ; 
sscanf (argv [3] ,  "Xd" ,  &P) ; 

input. COL  =  input. ROW; 

.input. array  =  matrixd,  input . R1W+2+P ,  1,  input.C0L+2*P); 
looplij (input. R0W+24£P, input. C0L+2+P)  input . array [i]  [j]  =  0.0; 
output. ROW  =  input. ROW; 
output. COL  =  input. COL; 

output. array  =  matrixd,  output . R0W+2+P ,  1,  output .C0L+2^P) ; 
loopli j (output . R0W+2+P , output . C0L+2*P)  output . array  [i]  [j]  =  0.0; 
flag  =  imatrixd,  input. ROW,  1,  input. COL); 
loopli j (input .ROW,  input. COL)  flagCi][j]  =  1; 

/  3k  ♦  4c  4c  4c  ♦  ♦  4c  4c  4c  4c  4c  3|c  4e  4c  4c  *  4c4c  ♦  4c  4c  4c  4c  4c  4c  ♦  ♦  4c  4c  ♦  4c  4c  4c  4c  4c  4c  / 

/♦  open  input  file  and  read  in  data  4c/ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

printf  (**\nreading  data  f ile. .  An**) ;  fflush(stdout) ; 

OPEN^FILE  (infile,  infilename,  **The  latnet**) 
loopli j (input. ROW,  input. COL) 

fscanf  (infile,  "y*f\n*',  ftinput. array [i+P]  [j+P])  ; 

CLOSE_FILE(i,  infilename,  “The  latnet**,  infile) 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c4c  4c  4c  4c  4c  4c  / 

/*  prompt  user  for  latnet  factor  4c/ 

/  4c  4e  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/♦  printf  (*'  \n\n  Input  latnet  f actor (f loat)  :**)  ; 

scanf  (*'y,f '* ,  &latf  actor)  ; 

printf  (**\nW  Input  latnet  extent  (integer)  :*') ; 
scanf  ('*5id** ,  ^extent)  ; 

4c/ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  4c  4c  4c  4c  / 

/*  This  part  actually  performs  the  lateral  excitation.  4c/ 

/  3k  4c  4c  4c  3k  3k  4c  4  4c  ♦  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

printf  (**\nperforraing  lateral  excitation. .  .\n*')  ;  fflush(stdout)  ; 
for(i=l+P;  i<=input.R0W+P;  i++) 
for(j=l+P;  j <= input .COL+P;  j++){ 

output. array [i] [j]  =  input . array [i]  [j]  -  input .array [i] [j] ; 
if (output. array [i] [j] ==0.0)  flagCi-P] [j-P]  =  POS; 
else  fiag[i~P] Cj-P]  =  NEC; 

input .array [i] [j]  =  (float)fabs ((double) input .array [i] [j]) ; 

for(p=  -P;  p<=  -1;  p++) 

latf actor  *♦=  (f loat)pow(2.0,  (double)p)  ; 
for(p=l;  p<=P;  p++) 

latfactor  +=  (f loat)pow(2.0,  -(double)p); 
for(i=l+P;  i<=output . ROW+P ;  i++) 
for(j=l+P;  j<=output .COL+P;  j++){ 

output  .array  [i]  [j]  =  latfactor  4c  input  .array  [i]  [j]  ; 
for(p=  -P;  p<=  -1;  p++) 

output . array  [i]  [j] -=input . array  [i+p]  [j]  4c (float )pow(2 . 0 ,  (double)p)  ; 
for(p=l;  p<=P;  p++) 

output .array [i]  [j]-=input. array [i+p] [j]*(float)pow(2.0,-(double)p) ; 
output.arrayCi]  [j]  4c=  P; 

} 

for(i=l+P;  i<=output . ROW+P ;  i++) 
for(j=l+P;  j<=output .COL+P;  j++) 

if (flag[i-Pj [j-P]==NEG)  ou+put. array [i]  [j]  =  -output .array [i][j]; 
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/  ^  9|c  t  ]|e  %  )|e  :fe  ]|c  ]|e  1 4c  3te  %  :|c  ](c  3|c  :|c  %  4c  3fc  3|c  %  jfc  / 

/♦  Create  file  and  output  data.*/ 

/4c  4c  *  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(**  ********  / 

printf  ('*\nwriting  output  data  f ile. .  An'*) ;  fflush(stdout)  ; 
sprintf (latfile,  "y.s.len",  inf ilenaiae) ; 

CREATE.FILE(outfile,  latfile,  "The  Thresholder") 
loopli j (output . ROW , output . COL) 

fprintf  (outfile,  "/.fXn",  output  .array  [i+P]  [j+P] ) ; 
CLOSE_FILE(i,  latfile,  "The  latnet" , outfile) 

/4c4c4c4c4c*4c*4c4c4c4c4c4c4c4c4c***4c***4c4c****4c4c*4c4c**4c4c*****4c4c**4:4c*4(/ 

/*  Tell  the  user  where  the  output  file  is  located.  */ 

/4c4c4c4c*******4c**4c*4c4c4c4c4c*****4c4c*4c***4c****4c4c4c4c******4c4c4c4c/ 

printf ("\nCreated  new  file  called:  ysXnVn",  latfile); 

free_matrix( input . array , 1 , input . R0W+2*P , 1 , input . C0L+2*P) ; 
free_matrix( output . array , 1 , output . R0W+2*P , 1 , output . C0L+2*P) 
free_imatrix(flag,  1,  input. ROW,  1,  input. COL); 

}  /*  THE  END  */ 
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Appendix  F.  Software  for  Utilities 


F.l  Description  of  Utilities 

The  following  is  a  list  of  the  software  utiiit’es  used  in  this  thesis.  It  includes  header 
files  and  subroutines  that  are  found  in  much  of  the  software  listed  in  earlier  appendices  and 
command  line  programs  that  filter  individual  files. 

1.  jsmacros.h-  A  header  file  containing  macros  used  widely  in  the  software  written  for 
this  thesis. 

2.  macros. h  -  A  header  file  containing  some  macros  used  early  on  in  the  software  of  this 
thesis. 

3.  stewmath.h  -  A  header  file  containing  an  integer  math  routine  to  take  the  base  2 
logarithm  of  an  integer  number. 

4.  ascii2byte.c  -  A  program  that  converts  an  ciscii  data  file  to  a  binary  data  file.  Data 
is  read  in  as  integer  decimal  with  the  fscanf  function  and  converted  to  unsigned  short 
written  out  with  the  fread  function.  The  ascii  file  must  be  integers  ranging  from  0  to 
1023  with  each  number  on  a  separate  row  of  the  data  file. 

5.  asift.c  -  A  program  that  converts  an  input  file  of  float  ASCII  values,  one  per  line, 
to  integer  ASCII  values,  one  per  line.  The  values  are  clipped  at  a  minimum  value  of 
0  and  a  maximum  of  255.  After  conversion  and  before  clipping,  the  absolute  value  of 
each  number  is  taken. 

6.  byte2ascii.c  -  A  program  that  converts  an  input  file  from  binary  format  in  wiiich 
an  array  of  numbers  is  stored  successively  as  unsigned  short  to  ASCII  format  in  which 
the  output  is  made  up  of  one  number  per  line  of  decimal  integers. 

7.  daub.c  -  A  program  used  to  generate  g{n),  <f>{x),  and  ^(.r)  given  an  h{n).  All  }i{n) 
values  are  hard  coded  and  must  be  entered  before  compilation.  Other  input  is  inter¬ 
active. 
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8.  epsview.c  -  A  program  that  converts  an  input  file  from  ASCII  format  in  which  each 
line  holds  an  integer  number  to  hex  with  an  Ecapsuiated  PostScript  header. 

9.  expand. c  -  A  program  that  performs  a  square  expansion  on  a  square  array  of  ASCII 
values.  The  input  values  can  be  integer  or  float  and  the  output  values  are  float.  The 
expansion  is  via  a  “Bi-cubic  Spline  Interpolation’’  [35j. 

10.  matrixtoascii.c-  A  program  that  converts  a  Khoros  ASCII  output  to  a  file  that  has 
one  integer  per  line  [37].  This  program  strips  off  the  matrix  coordinates  of  the  values. 

11.  nrutil.c  -  A  set  of  utilities  provided  by  Numverical  Recipies  in  C used  in  this  thesis 
mostly  for  dynamic  memory  allocation  [35]. 

12.  threshold. c  -  A  program  that  thresholds  an  input  file  of  ASCII  values  eliminating  a 
user  specified  window  of  minimum  and  maximum  values.  All  values  inside  the  window 
are  set  to  255  and  all  values  outside  the  window  are  set  to  0.  This  creates  a  black  and 
white  binary  representation  of  the  input  file. 


F.2  Spatial-Temporal  Analysis  Software 
F.2.1  Listing  of  JSMACROS.C 


Convenient  Macros  for  WAVE  program 

1 *  )|t  #  t  ♦  4c*  1 ♦  ♦  ♦♦  ♦  ♦  4c  it  ♦  ♦  ♦♦  3tc  ;tc  t  t  *  ♦  *4^  ♦  ♦  ♦♦  / 

/♦4C4C  MACROS  ♦4t4c/ 

#define  CREATE^MATRIX^ROW(A,B,C)  A  =  (C  ♦4c)calloc(B,  sizeofCC  4c)) 
#define  DELETE_MATRIX_ROW(A,C)  free((C  *)  A) 

#define  CLOSE^FILE(A,B,C,D)  if ((A=f close(D))  ==  EOF)  {  \ 

printf (strcat(C/*:file  may  already  be  closed  -  V.s  An'*) ,B) ;  } 

#define  CREATE_MATRIX_COL(A,B,C,D)  for(i=0;  i<B;  ++i)  A[i]  =  (D  ♦)  \ 
calloc(C,  sizeof(D)) 

#define  DELETE.MATRIX„C0L(A3,D)  for(i=0;  i<B;  ++i)  free((D  ♦)  A[i]) 

#define  CREATE  VECTOR(A,B,C)  A  =  (C  *)ca]loc(B,  sizeof(C)) 

#define  DELETE^VECTOR(A)  free(A) 

#define  loopli(A)  for(i=l;i<=A;i++) 

#define  looplj(A)  for(j=l ; j<=A; j++) 

#define  loopll(A)  for(l=l;l<=A;l++) 

#define  looplk(A)  for(k=l ;k<=A;k++) 

#define  looplij(A,B)  for(i=l;i<=A;i++)  for(j=l ; j<=B; j++) 

^define  looplkl(A,B)  for(k=l;k<=A;k++)  for(l=l ;1<=B;1++) 


#define  CREATE.FLOAT.VECTOR(A,B,C)  A  =  vector(B,C) 
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#define  CREATE_INT_VECTOR(A,B,C)  A  =  ivector(B,C) 

#define  CREATE_DOUBLE_VECTOR(A,B,C)  A  =  dvector(B,C) 

ttdefine  CBEATE_FLOAT_MATRIX(A,B,C,D,E)  A  =  matrix (B,C,D,E) 
#define  CREATE_INT_MATRIX(A,B,C,D,E)  A  =  imatrix(B,C.D,E) 
#define  CREATE_DOUBLE_MATRIX(A,B,C,D,E)  A  =  dmatrix(B,C,D,E) 


struct  int_array  { 
int  **cirray; 
int  ROW,  COL; 

>: 

typedef  struct  int_array  int^array; 

struct  float_array  { 
float  ♦♦array; 
int  ROW,  COL; 

}; 

typedef  struct  float„Ea*ray  float_array; 

struct  phi^array  { 
float  ♦♦axTay; 
int  ROW,  COL; 
int  intervals; 

y  $ 

typedef  struct  phi.array  phi^array; 

struct  float^vector  { 
float  ♦vector; 
int  length; 

>; 

typedef  struct  float. vector  float. vector; 


F.2.2  Listing  of  MA  CROS.  C 


/#4c♦♦♦♦♦♦♦♦3fc♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦4c]fc4c4[:(^4c4c]^''  .  4c4c4c)|c4c^4t4c4r4c](c4e:|ci|c;^ 


Convenient  Macros  for  Perceptron  Package  by  Capt  Greg  Tarr 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦/ 
/♦♦*  MACROS  ***/ 


#ifdef  LEO 

#define  REAL.FMT  '"/.g" 
#else 


#define  REAL.FHT  "•/.Ig 

#endif 

#ifdef  NEXT 

#undef  REAL.FHT 

#define  REAL.FMT  "'/.If 

#endif 


II 


II 


#define  Boolean  int 
#define  False  0 
#define  True  i 


/♦♦  Dominant  Sensor  Definitions  ♦♦/ 
#define  SINGLE  0 
#define  FLIR  1 
#define  RNG  2 


/♦♦  Mask  Definitions  ♦*/ 
#define  OFF  0.0 
#define  ON  1.0 


chea:  junk.r espouse  [256]  ; 

#define  fskip.line(A)  fgetsCjunk.response,  256,  A) 
#define  skip.line  gets(junk.response) 
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#d«fine  rloopi(A)  for(i-(A)-l;i>=0;i — ) 

#define  rloopj(A)  for(j=(A)-l;3>=0; j — ) 

#define  rloopk(A)  for(k=(A)“l;k>=0;k — ) 

#define  rloopl(A)  for(l=(A)-l;l>=0;l — ) 

#dei'i2ie  rloopm(A)  for(m=(A)“’l;m>=0;m-' ) 

#define  rloopii(A)  for(n=(A)“l  :>i>=0;ii — ) 

#d€fine  rloopp(A)  for(p=(A)-l;p>=0;p — ) 

#define  rloopij(A,B)  for(i=(A)-l;i>=0;i — )  for(j=(B)-l; j>=0; j — ) 
#define  loopi(A)  for(i=0; i<A; i++) 

#define  loopj(A)  for(j=0; j<A; j++) 

#define  loopk(A)  for(k=0;k<A;k++) 

#defin€  loopl(A)  for(l=0;l<A;l++) 

#define  loopm(A)  for(m=0;m<A;ni++) 

#define  loopii(A)  for(n=0;n<A;n++) 

#deline  looppU)  for(p=0;p<A;p++) 

#define  loopij(A,B)  for(i=0;i<A;i++)  for(j=0; j<B; j++) 

#define  loopkl(A,B)  for(k=0;k<A;k++)  for(l=0;l<B;l++) 

#defiiie  MALLOC(A,B,C,D)  if((A=(C  ♦)malloc((B)*sizeof (C)))==NULL)  {  \ 
fprintf (stderr,  strcat(D,**:  in.sufficient  memory \ii")  );  \ 
exit(-l);  } 

#define  CREATE.FILE(A,B.C)  if ((A=fopen(B,**w*'))  ==  NULL)  {  \ 

printf (strcatCC/*:  can^t  open  for  writing  -  y.sAn"),B);  \ 
exit  (-1);  } 

#define  OPEN^FILE(A,B,C)  if  ((A=fopen(B,'»r‘*))  ==  NULL)  {  \ 

printf  (strcatCC/*:  can^t  open  for  reading  -  XsAn")  ,B) ;  \ 
exit  (-1);  } 

#define  idx(I,J,N)  (I)^(N)+(J) 


/♦*  All  of  these  are 
#define  MAX.INPUTS 
#define  MAX^HODES 
#define  MAX.Hl.NODES 
#define  MAX.H2.N0DES 
#d^f'ne  MAX^OUTPUTS 

#dc  -ne  MAX^VECTORS 

#dex..-ie  WTS.TYPE^MSF 
#di.fine  WTS.TYPE^l 
#d.'fine  WTS.TYPE.O 

#define  TRAIN  0 

#define  TEST  1 

#def ine  THREE.LAYER 
#define  TWO^LAYER 


dependent  on  the  definition  of 
50 
50 
50 
50 
50 

loor 

2  /♦  new  weigh Ci”'  file  */ 

1  /♦  new  weigbt?  file  +/ 

0  /*  old  weights  file  ♦/ 


2 


'•layer-* 


**/ 


F.2.3  Listing  of  STBWMATH.C 


/♦  This  is  a  collection  of  functions  for  Convenience  ♦/ 

L0G2  takes  the  log  base  two  of  an  integer  and  returns  an  integer. 


int  L0G2(x) 
int  x; 

int  y  =  0; 

while  (x/2  >  0){ 
X  /=  2; 
y++; 

> 

return  y; 

} 


/♦  The  following  is  not  used  in  WAVE  ♦/ 

void  flipo(inv:.ctorpointer  ,outvectorpointer) 

float^vector  *invectorpointer,  ♦outvectorpointer; 

int  i; 

int  map ; 

outyectorpointer->length  =  invectorpointer-Mength; 

outvectorpointer->vector[l]  =  invectorpointer->vector[l] ; 

map  =  invectorpointer'“>length  -  2; 

loopi(invectorpoiiiter->length  -  1){ 

outvectorpointer“>vector[i+2]  =  invectorpointer“>vector[i+2+inap3 ; 
map  -2=  2; 

} 

} 

void  flipc(invectorpo inter, outvectorpointer) 

float^vector  ^'invectorpointer,  ♦outvectorpointer; 

{ 

int  i ; 

loopi(invectorpointer->length/2  +1) 

outvectorpointer~>vector[invectorpointer“>length/2  +1  -  i]  = 
invectorpointer->vector[i+l] ; 

outvectorpointer“>length  =  invectorpointer->length; 

} 


Listing  of  Modified  WAVEl  Modules 
F.2,4J  Listing  of  ASCII2BYTE.C 

/♦♦♦  ASCII  to  BYTE  CONVERTER  ♦♦/ 

/♦  DATE:  3  Sept  91 
VERSION:  1.0 
NAME :  ascii2byte . c 

DESCRIPTION:  This  routine  converts  an  image  from  ascii 
in  which  each  pixel's  gray  scale  value  (0  to  255)  is  stored 
on  one  row  of  the  file  to  byte  format  in  which  the  grey 
scale  values  are  logically  stored  in  consecutive  bytes  in 
the  file. 

FILES  READ:  One  file  specified  by  the  user. 

FILES  WRITTEN:  One  file  specified  by  the  user. 

HEADERS  USED :  <stdio .  h> ,  ’* j  smacros .  h” 

CALLING  PROGRAMS :  NONE 

PROGRAMS  CALLED:  uses  nrutil.c  from  Numerical  Recipies 
AUTHOR:  J.  Stewart  Laing 
HISTORY:  Initial  Version 


♦/ 


/♦  DECLARATION  SECTION  */ 

#include  <stdio . h> 

#include  **j  smacros .  h** 

int  ♦♦imatrixO ; 

void  free.imatrixO ; 
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/♦  FUNCTION  BODY  ♦/ 

void  main(argCt  argv) 
int  argc; 
char  ♦argv [] ; 

{ 

/♦  initialize  variables  ♦/ 

int  i , j ,  rows ,  cols ; 

FILE  ♦infile,  ♦outfile; 

char  inf  ilename[64]  ,  filencane[64]  ,  outfilenaineC643  ; 

imsigned  amount ; 
unsigned  short  ♦image; 

/♦  parse  command  line  ♦/ 

switch  (argc){ 
case  1: 

printf (“Input  filename : ; 
scanf  (**y.s“ ,  infilename)  ; 
printf (“\nOutput  filename:**); 
scanf (*'%s**,  outfilename) ; 
printf C'Xn#  of  ROWS:**); 
scanf  (“Xd**,  ftrovs); 
printf  ( **\n#  of  COLS :  *' )  ; 
scanf (**%d**,  ftcols); 
printf  (“\n*‘) ; 
break; 
case  2: 

sprintf (infilename,  **7,8**,  argvCl]); 
sprintf (outfilename,  **i4s.bin**,  infilename); 
printf (“\n#  of  ROWS:**); 
scanf  (**y,d**,  ftrows); 
printf (*'\n#  of  COLS:**); 
scanf (**yd**,  ftcols); 
printf  (“Xn**); 
break; 
case  3: 

sprintf  (inf  ilename ,  **ys** ,  argv  [l]  ) ; 
sprintf  (outfilename,  **5Cs**,  argv  [2]); 
printf (**\n#  of  ROWS:**); 
scanf  (**y,d**,  ftrows); 
printf  ( **\n#  of  COLS :  ** ) ; 
scanf  (**yd** ,  ftcols) ; 
printf  (**\n**); 
break; 
case  5: 

sprintf  (infilename,  **!(s**,  argv[l]); 
sprintf  (outfilename,  **ys**,  argv  [2]); 
sscanf (argv[3]  ,  **5(d**,  ftrows); 
sscanf (argv[4]  ,  **y#d**,  ftcols); 
break; 
default : 

printf (**Usage:  ascii2byte  [infilename]  [outfilename]**); 
printf  (**  [#  of  rows]  [#  of  cols]\n**); 

printf (**Note:  arguments  are  optional;  but,  position  is**); 
printf (**  criticalAn**) ; 
exit(O) ; 

} 

image  =  (unsigned  short  ♦)calloc(rows^cols,  sizeof (unsigned  short)); 
/♦  read  ascii  format  ♦/ 

/♦  printf  (**reading. .  An**) ;  fflush(stdout) ;  ♦/ 

OPEN^FILE  (infile,  infilename,  **The  ascii2byte  Converter**); 
for(i=0;i<rows^cols;i++)  f  scanf  (infile,  **y,hu\n**,  ftimage[i]); 


CLOSE.FILE  (i,  infilename,  “The  ascii2byte  Converter**,  infile) 

/♦  write  byte  format  / 

/♦  printf  (**writing. .  .\n“)  ;  fflush(stdo:xt) ;  ♦/ 

CREATE_FILE(outfile,  outfilename,  **The  ascii2byte  Converter**) 
amount  =  fwrite(image,  sizeof (unsigned  short),  rows^cols,  outfile); 
CLOSE_FILE(i,  filename,  **The  ascii2byte  Converter**,  outfile) 

/♦  free  memory  */ 
free(image) : 

>/♦  THE  FHD 

F.8.4'2  Listing  of  ASIFT.C 


/♦♦♦  FLOAT  TO  INTEGER  CLIP  AND  SIFT  PROGRAM  ♦♦/ 

/♦  DATE:  3  Sept  91 
VERSION:  1.0 
NAME:  asift.c 

DESCRIPTION:  This  program  converts  the  numbers  from  an  input  file  in  which 
each  number  is  on  a  separate  line  from  float  to  integer.  This  process  also 
takes  the  absolute  value  and  clips  the  values  to  stay  between  a  minimum 
value  of  0  and  a  maocimum  value  of  255. 

FILES  READ:  One  file  specified  by  the  user. 

FILES  WRITTEN:  One  file  specified  by  the  user. 

HEADERS  USED:  <stdio.h>,  **jsmacros.h**  ,  "macros. h**,  "stewmath.h" , 

<math .  h> 

CALLING  PROGRAMS:  NONE 

PROGRAMS  CALLED:  NONE 

AUTHOR:  J.  Stewaort  Laing  and  Steve  Smiley 

HISTORY:  Initial  Version 

♦/ 

♦  4c  4c  ^ 

/♦  DECLARATION  SECTION  */ 

/4c4c#4c#=^4c*«4!#*4c^3^***4c4(4c4c*^#/ 

#include  <stdio.h> 

#include  **macros.h" 

#include  ** j  smacros .  h** 

#include  **stewmath.h" 

#include  <math.h> 

/*4c3^4c4c*#««^««4c*4c*4c4t**#4c4c/ 

/♦  MAIN  PROGRAM  BODY  ♦/ 

/**#t^*^4c«**«««***4c«**4(«/ 

void  roain(ao:gc,  argv) 
int  argc; 
char  *argv[]; 

{ 

/♦  initialize  variables  ♦/ 
float^array  basis,  coef,  proj,  temp; 

int  i,  j,  k,  1,  level,  size,  shift=l,  newi,  newj,newint; 
char  basisfile[64] ,  coeff ile[64] ; 
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FILE  ♦infile2,  ♦outfile; 

/♦  test  parameters  ♦/ 
if(argc  !=  4  U  argc  !=  1){ 

printf ("Usage:  threshold  <filenaiae>  <#  of  ro»s>  <#  of  Cols>\n"); 
exit(O); 


/♦  PROMPT  USER  */ 

ifCargc  ==  1){ 

printf(”\n  Enter  the  name  of  the  coefficient  file»”); 
scanf("y.s",  coeffile); 

printf("\n  Enter  the  size  of  the  NXM  coefficent  array»”); 
scanf(“%d",  tcoef.ROW); 

} 

else{ 

sprintf (coeffile,  *7.s”,  argv[l]); 
sscanf (argv [2] ,  "Xd" ,  tcoef . ROW) ; 
sscanf (argvCS] ,  "%d”,  tcoef.COL); 

} 

/♦  create  a  matrix  to  hold  the  image  ♦/ 

/«*]^*«*^#]»*«*««**««*««*]^:»#*:^****««[«««**/ 

coef .COL  =  coef .ROW; 

CREATE^MATRIX.ROW(coef. array,  coef. ROW,  float); 

CREATE_lfATRIX_COL(coef -array,  coef. ROW,  coef .COL,  float); 

/«*#««*«**««««««******«*«/ 

/♦  open  input  file  ♦/ 

OPEM^FILE  (infilel,  coeffile,  “The  projection  program”); 
loopij( coef .ROW,  coef. COL) 

fscanf (infilel, “Xf”,  Acoef. array Ci] Cj]); 

CLOSE^FILE  (i,  coeffile,  “The  projection  program  “,  infilel) 
printf(“\n  ♦♦  The  image  Xs  has  been  loaded  for  processing.  ♦♦\n\n\n“, 
coeffile) ; 

/♦  OUTPUT  PROJECTIOI  ♦/ 

CREATE_FILE(outfile,  “sifted”,  “The  Projection  Program”) 
loopij (coef .ROW,  coef. COL) { 

newint  =  abs((int)(coef .arrayCi] [j])) ; 
if  (nevint  >  255)  newint  =  255; 
if  (newint  <  O)  neujint  =  0; 
fprintf (outfile, "Xd\n“,  newint) ; 

} 

prirtf("The  p. ejection  file  has  been  complctedXn") ; 

} 


F.2.5  Lisfing  of  BYTB8ASCILC 
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3|c  #)|C  3fe}|c  4c  t  ^  ^  ^  ^  1 4c  3^  ic  ^  ^ 1 1 1  3k  *  %  4: 3tc  t  Jfc  sf:  ^  t  1 1 t  / 

/*♦♦  byte  to  ASCII  CONVERTER  **/ 

/  >|c  :(K  4c  3k  3k  %  3k  4c  4c  ^  *  4c  3k  4  4c  4  4  4c  *  4  4c  4c  4  4  4  4c  4c  *  4c  4c  4c  4c  :(e  3|c  Jtc  ;tc  4  4  *  4  4  4c  4c  4c  4c  4c  4c  4  *  4  4c  4c  4c  1 4c  4c  4  4  4c  4  4  4  4c  4c  4c  4c  4c  4c  4  4(  4  *  Jfc  t  / 
/444C44444444444444444444 444444444 44 444444444 44444 4 4444 444 4 4444444 44444444444/ 

/♦  DATE:  3  Sept  91 
VERSION:  1.0 
NAME:  byte2ascii , c 

DESCRIPTION:  This  routine  converts  an  image  from  byte 
format  in  which  the  gray  scall  values  ^0  to  255)  are 
logically  stored  in  consecutive  bytes  in  the  file  to  ascii 
format  in  which  each  pixel  ^s  grey  scale  value  (0  to  255)  is 
stored  on  one  row  of  the  file. 

FILES  READ:  One  file  specified  by  the  user. 

FILES  WRITTEN:  One  file  specified  by  the  user. 

HEADERS  USED :  <stdio .  h> ,  *' j  smacros .  h" 

CALLING  PROGRAMS:  NONE 

PROGRAMS  CALLED:  uses  nrutil.c  from  Numerical  Recipies 
AUTHOR:  J.  Stewart  Laing 
HISTORY:  Initial  Version 

4/ 

/44444444444444444>|e44  4444444444  444;(c4  4444444  4  4  44  44  4444  4  4444  4  444  44  4  444444444  44/ 
/444444444444444444444444444444444444444444444444444444444444444444444444444/ 

/*  DECLARATION  SECTION  */ 


#include 

#include 


<  ‘ . io.h> 

*'  ..^macros .h** 


int  **imatrix() ; 

void  free_imatrix() ; 


h  FUNCTION  BODY  */ 


void  main(argc,  argv) 
int  argc ; 
char  ♦zLrgvC] ; 

{ 


/*  initialize  variables  */ 


int  i,j,  rows,  cols; 

FILE  *infile,  *outfile; 

cheo:  inf ilename[64] ,  filenameC64] ,  outf ilename[64] ; 

uns igned  amount ; 
unsigned  short  *image; 

/*  parse  command  line  */ 

switch  (argc){ 
case  1: 

printf ("Input  filename:"); 
scanf("y*s",  infilename); 
printf ("\nOutput  filename:"); 
scanf("y*s",  outf  ilename) ; 
printf ("\n#  of  ROWS:"); 
scanf("yd",  &rows); 
printf ("\n#  of  COLS:"); 
scanf("y*d",  &cols); 
printf ("\n"); 
breaik; 
case  2: 

sprintf (inf ilename,  "y,s",  argvCl]); 
sprintf (outf ilename,  "y.s.asc",  infilename); 
printf ("\n#  of  ROWS:"); 
scanf("y.d",  &rows) ; 
printf ("\n#  of  COLS:"); 
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scanf (**y.d*' ,  &cols); 
printf  (*‘\n**) ; 
break; 
case  3: 

sprintf (infilename,  "Xs",  argv[l3); 
sprintf (outfilename,  **y,s'*,  argv[2]); 
print! ('*\n#  of  ROWS:"); 
scan!  &rows); 

print! ("\n#  of  COLS:"); 
scan! ( "yd" ,  &cols); 
print!("\n"); 
breeik; 
case  5: 

sprintf (inf ilename,  "Xs",  argvCl]); 
sprintf  (out!  ilename,  "y,s",  2argv[2]); 
sscanf (argv[33  ,  "yd",  ftrows); 
sscanf  (argv[43  ,  ""/.d",  ftcols); 
break; 
default: 

print! ("Usage:  byte2ascii  [infilename]  [outf ilename] ") ; 
print! ("  [#  of  rows]  [#  of  cols]\n"); 

print! ("Note:  arguments  are  optional;  but,  position  is"); 
printf("  criticalAn") ; 
exit(O) ; 

} 

image  =  (unsigned  short  ★)calloc(rows’«'Cols,  sizeof (unsigned  short)); 
/*  read  byte  format  */ 

/*  print! ("reading, • An") ;  fflush(stdout) ;  ♦/ 

OPEN^FILE  (infile,  infilename,  "The  byte2ascii  Converter"); 
amount  =  fread(image,  sizeof (unsigned  short),  rows+cols,  infile); 
CLOSE.FILE  (i,  infilename,  "The  byte2ascii  Converter",  infile) 

/*  write  ascii  format  */ 

/*  print! ("writing, . An");  fflush(stdout) ;  ♦/ 

CREATE_FILE(outfile,  outfilename,  "The  byte2ascii  Converter") 
loopi(rows*cols)  fprintf (outf ile,  "yhu\n",  imageCi]); 

CLOSE_FILE(i,  filename,  "The  ascii2byte  Converter",  outf ile) 

/*  free  memory  ♦/ 
free(iraage) ; 

}/*  THE  END  */ 


F.2,6  Listing  of  DAUB, C 


/4c  t t  1 4c  :tc  *  )|C9(C  it  :(c  >(e  %  1 t t  ^  *  4c*  t  ♦  4c  *  4^  * ^  4c  3(C  4c  * / 

/4c  4c  4c  ********4c******4c*4c*4c  4c  4c**4c  4c  4c*4c  4c  4c  4c  4c  4c  4c****4c**4c4c**4c**4c  4c  4c*4c**4c*  **************/ 
/4C4C4C  WAVELET  GENERATOR  PROGRAM  ♦*/ 

/4c4c4c4c4c4c4c4(4c4c4c4c4c4e4c4(4c4c4c4c4c4c4c4c4c4c4c4c4e4c4c4c4(4c4e4e4c4c4c4c4c4c4c4c4c4c4e4e4c4c4c4c4c4c4c4c4c4c4c4c4:4c4c4c4c4c4c4c  <c 4c 4c 4c 4c 4c 4c/ 
/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  *  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/4C  DATE:  3  Sept  91 
VERSION:  1.0 
NAME:  daub.c 

DESCRIPTION:  This  program  generates  the  g(n),  phi(x),  and  psi(x)  from 
a  given  h(n) .  The  values  of  the  h(n)  are  hard  coded  and  must  be  set 
before  compilation.  Depth  of  recursion  and  type  of  wavelet  are  chosen 
by  the  user  interactively, 

FILES  READ:  NONE 

FILES  WRITTEN:  one  file  each  for  g(n) ,  phi(x),  and  psi(x) 

HEADERS  USED:  <stdio.h>,  "jsmacros.h"  ,  "macros. h" 


220 


CALLING  PROGRAMS:  NONE 
PROGRAMS  CALLED:  NONE 

AUTHOR:  J.  Stewart  Laing  and  Steve  Smiley 
HISTORY:  Initial  Version 

*/ 


#include  <stdio.h> 
#include  "macros. h" 
#include  "jsmacros.h" 


float  H(N,n) 
int  N,n; 

{ 

if(N  ==  2)-C 

if(n  ==  0)  return  .4829629131; 
if(n  ==  1)  return  .8365163037; 
if(n  ==  2)  return  .2241438680; 
if(n  ==  3)  return  -.1294095226; 
else  return  0.0; 

} 

if(N  ==  3){ 

if(n  ==  0)  return  .3326705530; 
if(n  ==  1)  return  .8068915093; 
if(n  ==  2)  return  .4598775021; 
if(n  ==  3)  return  -.1350110200; 
if(n  ==  4)  return  -.0854412739; 
if(n  ==  5)  return  .0352262919; 
else  return  0.0; 

} 

if(N  ==  4)-C 

if(n  ==  0)  return  .2303778133; 
if(n  ==  1)  return  .7148465706; 
if(n  ==  2)  return  .6308807679; 
if(n  ==  3)  return  -.0279837694; 
if(n  ==  4)  return  -.1870348117; 
if(n  ==  5)  return  .0308413818; 
if(n  ==  6)  return  .0328830117; 
if(n  ==  7)  return  -.0105974018; 
else  return  0.0; 

} 

if(N  ==  5){ 

if(n  ==  0)  return  .1601023980; 
if(n  ==  1)  return  .6038292698; 
if(n  ==  2)  return  .7243085284; 
if(n  ==  3)  return  .1384281459; 
if(n  ==  4)  return  -.2422948871; 
if(n  ==  5)  return  -.0322448696; 
if(n  ==  6)  return  .0775714938; 
if(n  ==  7)  return  -.0062414902; 
if(n  ==  8)  return  -.0125807520; 
if(n  ==  9)  return  .0033357253; 
else  return  0.0; 


} 

if(N  ==  6) 
if(n  == 
if(n  == 
if(n  == 
if(n  == 
if(n  == 
if(n  == 
if(n  == 
if(n  == 
if(n  == 
if(n  == 


{ 

0)  return  .115407434; 

1)  return  .4946238904; 

2)  return  .7511339080; 

3)  return  .3152503517; 

4)  return  -.2262646940; 

5)  return  -.1297668676; 

6)  return  .0975016056; 

7)  return  .0275228655; 

8)  return  -.0315820393; 

9)  return  .0005538422; 
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if(n  ==  10)  return  .0047772575; 
if(n  ==  11)  return  -.0010773011; 
else  return  0.0; 

} 

if(N  ==  7)  { 

if(n  ==  0)  return  .0778520541; 
if(n  ==  1)  return  .3965393195; 
if(n  ==  2)  return  .7291320908; 
if(n  ==  3)  return  .4697822874; 
if(n  ==  4)  return  -.1439060039; 
if(n  ==  5)  return  -.2240361850; 
if(n  ==  6)  return  .0713092193; 
if(n  ==  7)  return  .0806126092; 
if(n  ==  8)  return  -.0380299369; 
if(n  ==  9)  return  -.0165745416; 
if(n  ==  10)  return  .0125509986; 
if(n  ==  11)  return  .0004295780; 
if(n  ==  12)  return  -.0018016407; 
if(n  ==  13)  return  .0003537138; 
else  return  0.0; 

if(N  ==  8)  •[ 

if(n  ==  0)  return  .0544158422; 
if(n  ==  1)  return  .3128715909; 
if(n  ==  2)  return  .6756307363; 
if(n  ==  3)  return  .5853546837; 
if(n  ==  4)  return  -.0158291053; 
if(n  ==  5)  return  -.2840155430; 
if(n  ==  6)  return  .0004724856; 
if(n  ==  7)  return  .1287474266; 
if(n  ==  8)  return  -.0173693010; 
if(n  ==  9)  return  -.0440882539; 
if(n  ==  10)  return  .0139810279; 
if(n  ==  11)  return  .0087460940; 
if(n  ==  12)  return  -.0048703530; 
if(n  ==  13)  return  -.0003917404; 
if(n  ==  14)  return  .0006754494; 
if(n  ==  15)  return  -.0001174768; 
else  return  0.0; 

if(N  ==  9)  -C 

if(n  ==  0)  return  .0380779474; 
if(n  ==  1)  return  .2438346746; 
if(n  ==  2)  return  .6048231237; 
if(n  ==  3)  return  .6572880781; 
if(n  ==  4)  return  .1331973858; 
if(n  ==  5)  return  -.2932737833; 
if(n  ==  6)  return  -.0968407832; 
if(n  ==  7)  return  .1485407493; 
if(n  ==  8)  return  .0307256815; 
if(n  ==  9)  return  -.0676328291; 
if(n  ==  10)  return  .0002509471; 
if(n  ==  11)  return  .0223616621; 
if(n  ==  12)  return  -.0047232048; 
if(n  ==  13)  return  -.0042815037; 
if(n  ==  14)  return  .0018476469; 
if(n  ==  15)  return  .0002303858; 
if(n  ==  16)  return  -.0002519632; 
if(n  ==  17)  return  .0000393473; 
else  return  0.0; 

if(N  ==  10)  { 

if(n  ==  0)  return  .0266700579; 
if(n  ==  1)  return  .1881768001; 
if(n  ==  2)  return  .5272011889; 
il(n  ==  3)  return  .6884590395; 
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if(n  ==  4)  return  ,2811723437; 
if(n  ==  5)  return  -.2498464243; 
if(n  ==  6)  return  -.1959462744; 
if(n  ==  7)  return  .1273693403; 
if(n  ==  8)  return  .0930573646; 
if(n  ==  9)  return  -.0713941472; 
if(n  ==10)  return  -.0294575368; 
if(n  ==  11)  return  .0332126741; 
if(n  ==  12)  return  .0036065536; 
if(n  ==  13)  return  -.0107331755; 
if(n  ==  14)  return  .0013953517; 
if(n  ==  15)  return  .0019924053; 
if(n  ==  16)  return  -.0006858567; 
if(n  ==  17)  return  -.0001164669; 
if(n  ==  18)  return  ,0000935887; 
if(n  ==  19)  return  -.0000132642; 
else  return  0.0; 


else  { 

print! (*'\nError:  Invalid  choice  of  N*')  ;ff lush(stdout) ; 
return  0.0; 

} 

> 

float  G(N,n) 
int  N,n; 

int  i,sign=l; 

for(i=l;i<=abs(l-n) ;i++)  sign  *=  -1; 
return  (sign*H(N, 1-n)) ; 

} 

float  new(N>l,x) 
int  N,l,x; 

int  n; 

float  temp  =  0.0; 

if  (1  <=  0){ 

if  (x  ==  0)  return  1.0; 
else  return  0.0; 

} 

else  { 

for  (n=0;n<=2*N-l ;++n)  temp  +=  H(N,n)  ★  new(N,  1-1,  2*x-n) ; 
return  (1.414212562*temp) ; 

} 

} 

void  mainO 
int  i,l,N,j; 

float  temp,temp„s\un=0.0; 

FILE  *outfile; 
char  filename [64] ; 

print! (*'\nlnput  N  corresponding  to  the  desired  Daubeshies*') ; 
print! ("  Wavelet:  *'); 
scan!  ("•/d*',  &N); 

print! ("Xninput  depth  of  recursion  1  =  **); 
scanf  (**y,d'*,  *1); 
printf ("\nWorking. . .”); 

sprintf (filename, "daub%d. phi",  N) ; 

CREATE_FILE(outfile,  filename,  "The  Daub  routine") 

for(i=0;  i<=(2*N-l);  ++i)  fprintf (outf ile ,  "y,.9f\n",new(N,l,i)); 

CL0SE_FILE(i,  filename,  "The  Daub  routine",  outf ile); 

sprint! (filename, "dauby.d.h",  N)  ; 

CREATE_FILE(outf ile,  filename,  "The  Daub  routine") 
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for(i=0;  i<=2’»'N-l;  ++i)  fprintl (outf ile,  "•/,.9f\n'*,H(N,i)); 

CLOSE^FILEd,  filename,  *'The  Daub  routine",  outfile); 

sprintf  (filename, "dauby,d.g",  N) ; 

CREATE_FILE(outf ile,  filename,  "The  Daub  routine") 
for(i=I;  i>=2“2*N;  — i)  fprintf (outfile,  "y,.9f\n" ,G(N,i)) ; 

CLOSE_FILE(i,  filename,  "The  Daub  routine",  outfile); 
printf("\n"); 

sprintf (filename , "daubed . psi" ,  N) ; 

CREATE_FILE(outfile,  filename,  'The  Daub  routine") 

printf("psi  interval  of  support  is  y,d  y.d\n",(l-((2*N)-l))/2,(l+((2*N)-l))/2); 
for(j=(l-((2*N)-l))/2;  j<=(l+((2*N)-l))/2;  ++j){ 
temp^sum  =0.0; 
for(i=l;  i>=2-(2*N);  — i){ 
temp^sum  +=  G(N,i)*new(N,l, ((2*j)“i)) ; 

> 

fprintf  (outfile,  "y,.9f\n",1.414212562^temp_sum) ; 

} 

CLOSE_FILE(i,  filename,  "The  Daub  routine",  outfile); 
printf("\n"); 

} 

F.2.1  Listing  of  EPSVIEW.C 


/  :4c  %  %  #  4c  4c  ♦  t ♦  4c  ♦  4c  3|c  1 4c  1 4c  « :(c  t  *  ♦  ♦  ♦  *  *  4c  i(c  4: 4c  *  ♦  *  ♦  ♦  ♦  *  ♦  4c  4c  4c  4c  ^  9tt  }|e  %  jtc  ♦  4' 3*^  / 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  *4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 


/♦♦4C  •  ROUTINE  TO  VIEW  IMAGES  FOR  WAVELET  ANALYZER  4c4c4c4c4c/ 

/  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 
/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  3^  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  / 

/♦  DATE:  15  April  91  */ 

/*  ♦/ 

/*  VERSION:  1.0  */ 

/4c  4c/ 

/♦  NAME:  epsview.c  */ 

/4C  ♦/ 

/4c  DESCRIPTION:  This  routine  performs  the  inner  product  between  the  phi  */ 

/♦  and  phi  coeficient  of  the  image  at  any  valid  level  as  requested  by  4c/ 

/♦  the  caller.  */ 

/*  It  is  intended  as  a  subroutine  for  the  WAVELET  ANALYZER  PROGRAM.  */ 

/♦  ♦/ 

/4C  FILES  READ:  NONE.  4c/ 

/*  ♦/ 

/♦  FILES  WRITTEN:  A  file  will  be  generated  each  time  the  routine  is  */ 

/4c  routine  is  called.  The  name  of  the  file  will  depend  on  the  input  */ 

/♦  image  filename,  the  type  of  wavelet  used,  aind  the  level  of  resolution.  */ 

/4C  ♦/ 

/♦  HEADERS  USED:  <stdio.h>,  "macros. h",  <stdlib.h>,  "jlmacros.h",  ♦/ 

/4'  <string.h>  */ 

/♦  ♦/ 

/*  CALLING  PROGRAMS:  main-wave. c  */ 

/♦  ♦/ 

/♦  PROGRAMS  CALLED:  NONE  */ 

/♦  */ 

/♦  AUTHOR:  Steve  Smiley  and  J.  Stewart  Laing  4c/ 

/♦  ♦/ 

/4c  HISTORY:  Initial  Version  4c/ 

/4c  *</ 


/4c «  4k  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  4c  4c  4c  4c  4c  4c  4c  ^  / 
/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c«  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  9^  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4>  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4  4  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/♦  DECLARATION  SECTION  4c/ 

/44444C44444444444444444444/ 

#include  <stdlib . h> 
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#include  <stdio . h> 

#include  "macros . h" 

#include  " j  smacros .  y* 

#include  <string . h> 

#include  <math . h> 

/♦  FUNCTION  BODY  ♦/ 

/:(C](C  34c  9tc  :fc:fc  9(C  1 4c  *  4c*  / 

/*imageview(image) 

int-array  image , 

{*/ 

int  i,  j; 

FILE  *fopen(),  *1111116,  *outfile; 

char  inf  ilenaineC64]  ,  viewf  ile[643  ,  psfile[64]; 

int_array  image; 

void  main(argc,  aorgv) 
int  argc; 
char  *argvC]; 

if (argc  !=  4  &&  argc  !=  1){ 

printf ("Usage;  hist  <filename>  <#  of  rows>  <#  of  Cols>\n"); 
exit(O) ; 

} 

if(argc  ==  1){ 

printf ("  \n\n  Input  filename  of  image  to  be  viewed:>");  fflush(stdout) ; 
scanf("%s",  infilename); 

printf  (**\n\n  Input  the  size  of  the  image  (ROW  COLUMN)  :>"); 
scanf ("y#d  /(d",  &image.R0W,  ftimage.COL); 

} 

else{ 

sprintf (inf ilename,  "ViS",  argvCl]); 
sscemf  (argv[23  ,  "*/•(!",  ftimage.ROW); 
sscanf  (argv  [3]  ,  "‘/d" ,  ftimage .  COL) ; 

} 

CREATE_MATRIX_ROW( image. array,  image. ROW,  int); 

CREATE_MATRIX_COL( image. aarray,  image. ROW,  image. COL,  int); 

OPEN_FILE(infile,  infilename,  "epsview.c") 
loopij( image. ROW,  image. COL) { 

fscanf  (inf ile,  "y,3u\n",  ftimage.array [i]  [j] ) ; 

} 

sprintf (psf ile,  "Xs.eps",  infilename); 

CREATE_FILE( out file,  psf ile,  "epsview.c") 

f printf  (outf  ile, "•///! PS-Adobe-2.0  EPSF-1.2\n")  ; 

fprintf(outf ile, "•///,•///, BoundingBox:  0  0  VA  y.d  \n",  image. ROW,  image. COL); 
fprintf(outf ile, "•///, y/XCreator:  Imageview  by  Laing  ft  SmileyXn"); 
fprintf (outf ile,"%y,y/XTitle:  y.s.epsXn",  infilename); 
f  printf  (outf  ile ,  "Xy,y//,EndComments\n"  ) ; 
f printf (outf ile , "gsaveXn" ) ; 

fprintf (outf ile, "/picstr  VA  string  def \n", image. ROW) ; 

fprintf (outf ile, "0  0  translateXn" ) ; 

fprintf  (outf  ile ,  "y,d  VA  scaleXn" ,  image .  ROW ,  image .  COL) ; 

fprintf  (outf  ilc,"y,d  y,d  8  [y,d  0  0  VA  0  0]Xn",  image.  ROW,  image.  COL,  image.  ROW,  image.  COL); 
fprintf (outf ile, currentfile  picstr  readhexstring  pop}Xn"); 
fprintf (outf ile , "imageXn" ) ; 

loopij( image. ROW,  image. COL) { 

if  (image,  array  [i]  Cj]  <=  15)  fprintf  (outf  ile,  "oy.xXn",  image.array  [i]  Cj]  )  ; 
if  (image,  array  [i]  [j]  >  15)  fprintf  (outf  ile,  "y,2xXn",  image,  array  [i]  [j]) ; 


225 


} 


fprintf  (outf  ile/'showpage*') ; 

/*  call  the  showpage  from  Unix  ♦/ 

/  4c  4c  4c  4c  4c  4c  4c  %  4c  4c  4c  4c  ♦  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ^  4c  ♦  4c  4c  4c  4c  4c  3^  4c  / 

printf(**\nl  have  created  a  postscript  file  called:  y,s\n\n'*,  psfile); 
fflush(stdout) ; 

/*sprintf  (viewfile,  **csh  -c  pageview 

/ tmp_mnt/home/ scgraph/ en/ ge/ ssmiley/thesis/ C-code/Develop/heximage . ps\n“ ) ; 
printf  (**y.s**,  viewfile);  fflush(stdout)  ; 
system(viewfile) ;  ♦/ 

} 


F.2.8  Listing  of  EX  PAN D.C 


/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c «  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  3^  4c  3^  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c«  4c  4c  4c  4c  4c  3^  3^  4c  4c  4c  4c  4c  4c  4c  4c  4c «  4c  4c  4c  4c  4c  *  #4c  4c  4c  4c  ♦/ 
/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  3^  4c  4c  4(  4c  4c  4c^#4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c*4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  3^  4c  4c  4c  4c  4c  4: 4c  4c  4c  4c  4c  4c  3^  4c  4c  4c  4c  4c/ 

/♦♦♦  ARRAY  EXPADER  PROGRAM  4c4c/ 

/^  4c  4c  4c  4c  4c  4c  4c  34  4c  4c  4c  4c  4c  4c  3^  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  34  4c  4c  34  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ^  4c  4c  4c  4c  4c  4c  4c  34  4c  4c  4c  / 
/4c  34  4c  34  34  343434  3434  4c  4c  34  4c  34  4c  4c  34  34  4c  34  34  4c  4c  4c  *4c4c4c  34  34  34  34  4c  34#4c  4c  34  34  4c  4c  4c  34  4c4c  4c  344c  4c  4c  344c  34  3434  *  34  4c  4c  4c  4c4  4c  4c34  34  4c  4c  4c  34  34  4c  4c  4c/ 

/♦  DATE:  3  Sept  91 
VERSION:  1.0 
NAME:  expand. c 

DESCRIPTION:  This  program  expands  a  square  power  of  2  size  array 
by  a  factor  specified  interactively  by  the  user.  It  uses  a  **bi“cubic 
spline  interpolation  routine  from  Numerical  Recipies  in  C. 

FILES  READ:  One  file  specified  by  the  user. 

FILES  WRITTEN:  One  file  specified  by  the  user. 

HEADERS  USED:  <stdio.h>,  "jsmacros.h**  ,  <math.h> 

CALLING  PROGRAMS:  NONE 

PROGRAMS  CALLED:  uses  nrutil.c  from  Numerical  Recipies 

AUTHOR:  J.  Stewart  Laing 

HISTORY:  Initial  Version 
34/ 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  #  4c  34  344c  34  4c  4c  4c  4c  4c  34  ^  34  4c  34  4c  4c  4c  4c  4c  34  *  4c  4c  4c  4  4c  4c  4c  4c  34  344c  4c  4c  4c  4c  4c  >4  34  4c  #34  ]|c  ]4  ^  4c  4c  34  4c  ♦  4c  4c  4c  4c  34  4c  4c  34  4c  4c  4c  / 
/^  ]4  4c  4c  4c  4c  34  34  4c  4c  #  4c  4c  4c  34  344c  34  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  *  34  34  34  4c  4c  4c  4c  4c  4c  4  4c  34  34  34  4c «  4c  4c  4c  34  ♦  34  #  4c  34  4c  #  4c  4c  34  4(  34  #  34  34  34  34  4c  34  4c  4c  4c  4c  4c  34/ 

#include  <math.h> 

#include  “ j  smacros . h" 

#include  <stdio.h> 

float  ♦*matrix(); 
float  ♦vectorO; 
void  free^vectcrO ; 
void  free^matrixO ; 

void  main(argc,  argv) 
int  argc; 
char  ♦argv[] ; 

{ 

/4c  34  4c  3434  4r  4c « 34  4c  4c  4c  34  «  4c  34  4c  4c  4c  4c  4c  34  34  4c  / 

/♦  initialize  variables  ♦/ 

/4c  4c  4c  34  «  4c  34  4c  34  4c  4c  34  34  34  4c  4c  4c  344c  4c  34  4C434/ 

int  i,j,  factor; 

FILE  ♦infile,  ♦outfile; 

float^array  in,  out; 

char  inf iienameC64] ,  expandf ileC64] ; 
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void 


expandOO,  expandlO,  expand2(); 

/*  test  parameters  ♦/ 

/  ^^4c^3|t]|c4c:tc4e4c4c:|c^^%t4c4c4c4c](c:(c4c/ 

ifCargc  !=  3  ftft  argc  !=  1){ 

printf ("Usage:  threshold  <lilename>  <N  for  NxN>\n"); 
exit(O) ; 

} 

/♦  prompt  for  parameters  if  not  input  ♦/ 

/  4c  Jtt  ♦  4e  ♦  *  4c  ♦  3|c  4c  4c  %  Ifc  :fc  4(  4c  4e  :|C  4c  4c  4c  4c  3|t  ^  «  4e  #  ]|c  4c  ^  4c  3|c  ](c  4c  4c  *  ♦  3|t  / 

if (argc  ==  1){ 

printf ("\n\n\n  Input  the  size  of  the  square  in  (ROW/COLUMN):"); 
scanf(*7.d",  ftin.ROW); 

printf ("  W\n  Input  filename  of  in  to  be  expanded:");  fflush(stdout) ; 
^  scanf("y,s",  infilename); 

/  4c  ^  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  #  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/♦  use  parameters  given  on  command  line  ♦/ 

/  4e  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 
else  { 

sprintf (infilename,  "%s",  argv[l]); 
sscanf (argv [2] ,  "Xd" ,  &in. ROW) ; 

} 

in. COL  =  in. ROW; 

/«  4c  4c4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/*  prompt  user  for  expansion  factor  ♦/ 

/4c  4c  4e  4c  4c  4c  4c  4c  4c  4c  ♦  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c4c  4c4c  4c  4c  4c  4c  4c  4c4c/ 

printf ("  \n\n  Input  expansion  factor:"); 
scanf ("Xd" ,  &f actor) ; 

/  4c  4c  4c  4c  4c  4c  ♦  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c «  4c  4c  4c  4c  4c  *  4c  4c  4: 4e  4c  4c  4c  4c  4c  4c  / 

/*  create  a  matrix  to  hold  the  in  ♦/ 

/4!  4c  ^  4c «  4c  4c «  4c:^  4c  4c  4c  i^4c  ♦  4c  *  4c  4c  4c.4c  #  4c  4c  4c  4c  4c  4c  4c «  4c  4c  4c  4c  / 

out. ROW  =  in. R0W*f actor; 
out. COL  =  out. ROW; 

in. array  =  matrix(l,  in. ROW,  1,  in. COL); 
out. array  =  matrixd,  out. ROW,  1,  out. COL); 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c*4c^4c  4c  4c/ 

/♦  Open  input  file  ♦/ 

/ '^  4|  4c  ^  4c  4c  4c  4c  ♦  4c  4c  t  ♦  4c  4c  4c  4c  4c  4c  ♦  ♦  ♦  / 

OPEK^FILE  (infile,  infilename,  "The  Expander"); 
looplij(in.ROW,  in. COL)  fscanf (inf ile,  "Xf\n",  &in. array [i] [j]) ; 
CLOSE_FILE(i,  infilename,  "The  Expander",  infile) 

/^4c*  3^  4e  4c  4c  4c#  ^  4c^  «  4c  4(  4(4i  4c  ]^4t  4c4c  4(/ 

A  call  expansion  routines  ♦/ 

/#######  4c  #  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ####  4c  4c  4c  / 

expandl (in. array,  in. ROW,  out. ROW,  out.ariay); 

/##4c########4c4c#####4c4c#4c#4c#4c4c4c4c4c#4c#4c4c4c4c4c#4c4c4c4c4c#4c#/ 

/*  Create  file  and  output  the  expanded  array.  */ 

/4c4c#*###4c4c4c#4c###4c4c###4c####4c#4c4c4c4c##4c###4c4c4c#4c4c4c4c4c#/ 

Sprintf (expandf ile,  "Xs.exp",  infilename); 

CREATE_FILE(outf ile,  expandf ile,  "The  Expander"); 

looplij(out.ROW,  out. COL)  fprintf (outf ile,  "Xf\n",  out .array [i] [j] ) ; 
CLOSE_FILE(i,  expandf ile,  "The  Expander",  outf ile) 

/#  4c  4c  #  4c#  #  4c  4c  #  4c  4r  4c  4c  #  4c  #  4c  4c  4c  ##  4c4c4i  4c4c  4c  4c4c  #4c  #  4c  #  4c  4c  4c  #  4c  4c4c  #  4c  4c4c  4c  #  4c  4c «  #/ 

/♦  Tell  the  user  where  the  output  file  is  located.  ♦/ 
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printf(**\nl  have  expcoided  y,s  by  a  factor  of  Xd  and  saved  it  in  y,s:\ii\n*', 

infilename,  factor,  expandfile); 

/♦  THE  END  ♦/ 

} 

void  expand© (in,  small,  big,  out) 
int  small,  big; 
float  ♦♦in,  ♦♦out; 

{ 

int  i,j,k,l,  factor; 
float  ♦tab,  ♦♦yp; 
void  splin2(),  splineO; 

tab  =  vectord,  small); 

yp  =  matrix(l,  small,  1,  small); 

factor  =  big/small; 
loopli(small)  tab[i]  -  factor^!; 

loopli(small)  spline(tab,  inCi],  small,  l,0e30,  l.OeSO,  ypCi]); 
loopl i j ( small , small ) 

loopkl (factor,  factor) 

splin2(tab, tab, ill, yp, small, small,  (float) (factor^i-k)  , 

(float) (f actors j-1) ,ftout [factor^i-k] [f actors j-1] ) ; 

free_vector(tab,  1,  small); 
frce_matrix(yp,  1,  small,  1,  small); 

} 

void  expand2(in,  small,  out) 
int  small; 
float  ♦♦in,  ♦♦out; 

int  i,j,k,l,  factor; 

float  ♦♦yp,  *tmp,  ♦ptmp,  ♦tab; 

void  splineO,  splintO; 

yp  =  matrix(l,  small,  1,  small); 
tab  =  vectord,  small); 
tmp  =  vectord,  small); 
ptmp  =  vectord,  small); 

loopli(small)  tabCi]  -  2^i; 

loopli(small)  spline(tab,  inCi],  small,  l.OeSO,  1.0e30,  yp[i]); 
looplij (small,  small)*C 

out  [2*i3  C2*j]  =  in[i3[j3; 

splint(tab,  in[i],  ypCi],  small,  (float) (2^j-l) ,  &out [2^i]  [2^j-l] ) ; 

} 

looplij (small,  snall^2){ 

looplk(small)  tmpCk]  =  out[2*k][j]; 

spline (tab,  tmp,  small,  1.0e30,  l.OeSO,  ptmp); 

splint(tab,  tmp,  ptmp,  small,  (float) (2^i-l) ,  &out [2^i-l3  [j] )  ; 

} 

free_matrix(yp,  1,  small,  1,  small); 
free.vector(tmp,  1,  small); 
frec_vector(ptmp,  1,  small); 
free_vector(tab,  1,  small); 

} 

void  expandl(in,  small,  big,  out) 
int  small,  big; 
float  ♦♦in,  ♦♦out; 

int  i,j,k,l,  factor,  index; 
float  ♦♦tmp; 
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tmp  =  matrix(l,big,l,big); 
factor  =  big/small; 

index  =  (int)(log((double)factor)/log(2.0)); 

looplij (small* small)  tmpCi]  [j]  =  inCi]Cj]; 
loopli(index){ 

expand2(tmp*  small,  out); 
small  ♦=  2; 

looplkl (small*  small)  tmp[k]Cl]  =  out[k]Cl]; 

} 

free_matrix(tmp,  1,  big,  1,  big); 

} 


F,2,9  Listing  of  MATRIXTOASCILC 


4c  4c  :|C  4c  4c  4c  ♦  4c  ♦  ♦  ifc  4c  4c  :|c  4c  «  «  4c  #  t  *  4c  %  *  ♦  ♦  t  ♦  34c  4c  *  4c  ♦  *  * 3|c  ]t(  ^ 3(c  4c  4c  :4c  4c  #  4c  ♦  4c  ♦  « 4c  *  ♦  4c  / 

/4C4C4C  KHOROS  ASCII  STRIPPER  ♦*/ 

/4c  4c  4c  4c  4c  3^  4c  *  4c  4c  4c  4c  4c  4c  4c  4c  4c  3^  ♦  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4e  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c ^  / 
/4(  4c  3^  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  3^  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  *  4c  4c  4c  4c  4c  4c  4c  3^  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  3^  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/4C  DATE:  3  Sept  91 
VERSION:  1.0 


NAME :  matrixtoascii . c 

DESCRIPTION:  This  program  strips  the  matrix  coordinates  froui  an  ASCII 
file  output  by  the  Khoros  image  processing  system. 

FILES  READ:  One  file  specified  by  the  user. 

FILES  WRITTEN:  One  file  with  the  suffix  .ascii  added. 

HEADERS  USED:  <stdio.h>,  “jsmacros.h"*  <stdlib.h>,  <string.h>, 
<math.h>*  “macros. h” 

CALLING  PROGRAMS:  NONE 
PROGRAMS  CALLED:  NONE 


AUTHOR:  Steve  Smiley 
HISTORY:  Initial  Version 

*/ 

/*  3^  3^  3^  3|c  3ic  4c  3^  4c  4c  4c  3^  ♦  4c  4c  4c  4c  4c  3^  4c  4c4c  ♦  4c  4c  3^  *  3^  # « 3|c  1 4c  4c  4c  4^  4c  4c  4c  4c  4c  4c  4c  4c  3^  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  3|c  3|c  #  3K  4c  4c  4c  4c  4c  3|c  3|c  3|r  3^  4c  / 

/3|c  3|c  3^  3^  3|r  3|c  4c  4c  4c  4c  4c  ♦  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  3»  4c  4c  3^  4c  4c  4c  4c  4c  4c  4c  3^  4c  4c  4c  4c  4c  4c  4c  4c  4c  4C  4c  4c  4c  / 

/^4c  4c  4c  4c  4c  4c  3^  4c  4c  4c  4c  4c  4c  t  #4c  4c  3^  4c  4c  4c  4c  4c  4c/ 

/4c  DECLARATION  SECTION  ♦/ 

/4r  4c  4c  4c  4c  4c  3^3^  4c  4c  4c  4c  1 3^  4c  4  4  4c  4c  4c  3^  4c  3^  4  4c  / 


#include  <stdlib . h> 

#include  <stdio . h> 

#include  “macros . h“ 

#include  “ j  smacros . h“ 
#include  <s tr ing . h> 

#include  <math.h> 


mainO 

{ 


FILE  ♦infile*  ♦outfile; 

char  infilename [64] *  psfile[64],  element[24]*  num[20]; 

int  i*  j,  holdl,  hold2; 
int^array  image; 


printf(“  \n\n  Input  filename  of  image  to  be  cleaned:>“); 
scaoif  (“y.s“  *  infilename)  ; 

printf(“\n\n  Input  the  size  of  the  image  (ROW  COLUMN) :>“); 
scanf(“y*d  y#d“,  ftimage.ROW,  fcimage . COL) ; 


CREATE_MATRIX„ROW (image. array ,  image. ROW,  int); 
CREATE^MATRIX^COLC image. array,  image. ROW,  image. COL,  int); 

OPEM_FILE(inf ile,  infilename,  "matrixtoascii.c^') 
while (*element  !=  '#0  fscanf (infile,  ’*%c**,  element); 

loopij( image. ROW,  image. COL) { 
fscanf  (infile,  **y#c**,  element); 

while(=^element  !=  '  =  0  f sczmf (inf ile,  “Xc",  element); 
fscanf  (infile,  '*y#3d*',  &image.  array  [i]  [j]); 

} 

sprintf (psfile,  "Xs. ascii**,  infilename); 

CREATE_FILE(outfile,  psfile,  **matrix.c**) 

loopij (image. ROW,  image. COL) { 

f printf  (outf  ile ,  **y»d\n** ,  image .  array  [i]  [j]  )  ; 

> 

} 


F,2J0  Listing  of  NRUTIL.C 


#include  <malloc.h> 

#include  <stdio.h> 

void  nrerror(error_text) 
char  error_text[3; 

void  exitO; 

fprintf  (stderr,**Numerical  Recipes  run-time  error. .  .\n**) ; 
f  printf  (stderr,  **y.s\n**  ,error_t ext)  ; 
fprintf  (stderr,**. .  .now  exiting  to  system. .  .\n'*)  ; 
exit(l); 

} 


float  ♦vector (nl,nh) 
int  nl,nh; 

{ 

float  ♦v; 

v=(float  ♦)malloc( (unsigned)  (nh“nl+l)*si2eof (float)) ; 
if  (!v)  nrerror(**allocation  failure  in  vectorO**); 
return  v-nl; 

} 

int  ♦ivector(nl,nh) 
int  nl,nh; 

{ 

int  ♦v; 

v=(int  ♦)malloc( (unsigned)  (nh-nl+l)*sizeof (int)) ; 
if  (!v)  nrerror(**allocation  failure  in  ivectorO**) ; 
return  v-nl; 

} 

double  ♦dvector(nl,nh) 
int  nl,nh; 

-C 

double  ♦v; 

v=(double  ♦)malloc( (unsigned)  (nh-nl+l)^si2eof (double)) ; 
if  (!v)  nrerror(**allocation  failure  in  dvectorO**) ; 
return  v-nl; 
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float  ♦♦matrix(nrl,iirh,ncl,iich) 
int  nrl,nrh,ncl,nch; 

{ 

int  i; 
float  ♦♦m; 

ni=(float  ♦*)  mallocC (unsigned)  (nrh-nrl+D+sizeof (float*)) ; 
if  (Im)  nrerror("allocation  failure  1  in  matrixO**) ; 
m  -=  rrl; 

for(i=nrl;i<=nrh;i++)  { 

mCi]=(float  *)  malloc( (unsigned)  (nch-ncl+l)*sizeof (float)) ; 
if  (!m[i])  nrerror(*‘allocation  failure  2  in  matrixO**); 
m[i]  ncl; 

} 

return  m; 

} 

double  ♦*dinatrix(nrl,nrh,ncl,nch) 
int  nrl,nrh,ncl,nch; 

{ 

int  i; 
double  **m; 

m=(double  **)  inalloc( (unsigned)  (nrh“nrl+l)*sizeof (double*)) ; 
if  (!m)  nrerror(**allocation  failure  1  in  dmatrixO") ; 
m  “=  nrl; 

for(i=nrl;i<=snrh;i++)  { 

m[i]=(double  ♦)  malloc( (unsigned)  (nch“ncl+l)*si2eof (double)) ; 
if  (!mCi])  nrerror( "allocation  failure  2  in  dmatrixO**) ; 
mCi]  “=  ncl; 

} 

return  m; 

} 

int  ♦*imatrix(nrl,nrh,ncl,nch) 
int  nrl,nrh,ncl,nch; 

{ 

int  i,**m; 

ni=(int  **)malloc( (unsigned)  (nrh-nrl+l)*si2eof (int*)) ; 
if  (!m)  nrerror(*'allocation  failure  1  in  imatrixO**) ; 
m  -=  nrl; 

for(i=nrl;i<=nrh;i++)  { 

m[i]=(int  *)malloc( (unsigned)  (nch-ncl+l)*si2eof (int)) ; 
if  (ImCi])  nrerror(**allocation  failure  2  in  imatrixO**); 
ro[i]  -=  ncl; 

} 

return  m; 

> 


float  * *submatr ix (a , oldr 1 , oldrh , oldcl , oldch , newr 1 , newel ) 
float  ♦*a; 

int  oldrl , oldrh , oldcl , oldch , newrl , newcx ; 

int  i,j; 
float  ♦♦m; 

m=(float  *♦)  malloc( (unsigned)  (oldrh'“oldrl+l)*sizeof (float*)) ; 
if  (!m)  nrerror(**allocation  failure  in  submatrix ()**) ; 
m  “=  newrl; 

f or ( i=oldrl , j  =newrl ; i<=oldrh ; i++ , j  ++ )  m [ j  ]  =a [i]  +oldcl-newcl ; 
return  m; 

} 
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void  free.vectorCv^nljnh) 
float  ♦v; 
int  nl,nh; 

{ 

free((char*)  (v+nl)); 

} 

void  free_ivector(v,iil,nh) 
int  ♦v,nl,nh; 

free((ch2a:*)  (v+nl)); 

} 

void  free_dvector(v,nl,nh) 
double  *v; 
int  nl,nh; 

{ 

free((char*)  (v+nl)); 

} 


void  f ree^matr ix (m , nrl , nrh , ncl , nch ) 
float  ♦♦m; 

int  nrl, nrh, ncl, nch; 
int  i; 

for(i=nrh;i>=nrl;i — )  free((char*)  (in[i]+ncl)) ; 
free((char*)  (m+nrl)); 

} 

void  f r ce^dmatr ix (m , nrl , nrh , ncl , nch) 

double  ♦♦m; 

int  nrl, nrh, ncl, nch; 

{ 

int  i; 

for(i=nrh;i>=nrl;i — )  free((char*)  (m[i]+ncl)); 
free((char*)  (m+nrl)); 

} 

void  f r ee^imatr ix (m , nrl , nrh , ncl , nch) 
int  ♦♦m; 

int  nrl, nrh, ncl, nch; 
int  i; 

for(i=nrh;i>=nrl;i — )  free((char*)  (m[i]+ncl)); 
frec((char*)  (m+nrl)); 

} 


void  f ree^submat r ix (b ,nrl , nrh , ncl , nch) 
float  ♦♦b; 

int  nrl, nrh, ncl, nch; 

frec((char+)  (b+nrl)); 

} 


float  ♦♦convcrt_matrix(a,nrl,nrh,ncl,nch) 
float  ♦a; 

int  nrl, nrh, ncl, nch; 

< 

int  i, j ,nrov,ncol; 
float  ♦♦m; 

nroy=nrh“nrl+l ; 
ncol=nch“ncl+l ; 

m  =  (float  ♦*)  malloc( (unsigned)  (nrow)*sizeof (float*)) ; 
if  (!m)  nrerror( "allocation  failure  in  convert^matrixO") ; 
m  nrl; 
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for(i=0, j=nrl; i<=nrow“l; i++, j++)  mCj]=a+ncol*i"ncl; 
return  m; 

} 


void  f ree_convert_inatrix(b ,nrl , nrh , ncl , nch) 
float 

int  nrl, nrh, ncl, nch; 

free((ch2a:’^)  (b+nrl)); 

} 


F.2J1  Listing  of  THRESHOLD.  C 


/♦♦♦  THRESHOLDER  ♦♦/ 

/  ]|c  4t  ♦  1|C  Jfc  >)c  4c  :(c  4c  4c  ♦*  4c  %  4c  4c  ite  4c  ♦♦  1 4c  **  3|c  3fc  9K  3(c  *  3»c  9(c  ](c  4c  :4‘ ♦  :4c  t  :(c  3(c  3(£  ]|c  :4c  4c  *  4e  3tc  *♦♦***♦*}*(***  t  **  / 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/♦  DATE:  3  Sept  91 
VERSION:  1.0 
NAME:  threshold. c 

DESCRIPTION:  This  program  thresholds  an  array  values.  A  window  is 
chosen  interactively  by  the  user.  All  values  :.n..Ade  the  window  aire  set 
to  255  (white)  and  all  values  outside  the  threshold  are  set  to  0  (black). 

FILES  READ:  One  file  specified  by  the  user. 

FILES  WRITTEN:  One  file  with  the  suffix  .thresh  added. 

HEADERS  USED:  <stdio.h>,  "jsmacros.h**,  <stdlib.h>,  "macros. h" 

CALLING  PROGRAMS:  NONE 
PROGRAMS  CALLED:  NONE 

AUTHOR:  J.  Stewart  Laing  and  Steve  Smiley 
HISTORY:  Initial  Version 

4c/ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  / 
/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c*^  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/*  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/*  DECLARATION  SECTION  ♦/ 

/4e4c4c4c4e4e4c4c4c4c4e4(4c4c4(4;4c4c4c4c4c4c4c4c4c/ 

#include  <stdlib . h> 

#include  <stdio . h> 

#include  "macros . h" 

#include  " j  smacros . h" 

/4e  4c  4c  4e  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c/ 

/4c  FUNCTION  BODY  */ 

/4c  4c  4c  4c  4e  4c  4c  4c  4c  4c  4c  1 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

voi*  main(argc,  argv) 
int  argc; 
char  4cargv[]; 

{ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/4c  initialize  variables  4c/ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  / 

int  i,j; 

FILE  4cinfile,  4coutfile; 

int^array  image; 

int  upthresh ,  downthresh ; 

char  inf ilename[64] ,  Ihreshf ile[64] ; 

/  4c  4c  4c  4c  4c  4c  4c  4c  4<  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  / 

/4t  test  parameters  */ 
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if(argc  !=  4  &&  argc  1=  1){ 

printf ("Usage:  threshold  <filenaine>  <#  of  rows>  <#  of  Cols>\n"); 
exit(O) ; 

} 

/ %  t  >(t  >(C Jtc % 4c * ♦  4c * ](c t  ♦  3(C 4c ♦  3fc t  4c * / 

/♦  prompt  for  parameters  if  not  input  ♦/ 

/  4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c^4c4c4c4c4c4c4c4c4c4c4c4c4c4c4:4c4c4c/ 

if(argc  ==  1){ 

printf ("\n\n\n  Input  the  size  of  the  image  (ROW  COLUMN) :>"); 
scanf("%d  y,d",  ftimage.ROW,  ftimage.COL); 

printf ("  \n\n  Input  filename  of  image  to  be  histogramed:>") ;  fflush(stdout) ; 
^  scanf("y,s",  infilename); 

/%  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/4c  use  parameters  given  on  command  line  4c/ 

/ 4c4c4c4c4  -^♦4c4c4c4c4c4c4t4c4c4t4c4t4t4t4c4c4c4c4c4c4c4c4c4c4c4c4c4'4c4c4c4c4c4c4c/ 

else  { 

sprintf (inf ilename,  "Xs",  Ea*gv[l]); 
sscanf  (argvC2]  ,  "*/(!",  ftimage.ROW); 
sscanf  (sirgvCS]  ,  "yd",  ftimage.COL); 

} 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/4c  create  a  matrix  to  hold  the  image  */ 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

CRE ATE^M ATRIX^ROW ( image . array ,  image . ROW ,  int ) ; 

CREATE_MATRIX_COL( image. array,  image. ROW,  image. COL,  int); 

/  4c  4e  4c  4c  4c  4c  4c  4c  4c  4C 1 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/♦  open  input  file  4c/ 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

OPEN.FILE  (infile,  infilename,  "The  thresholder") 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

/*  prompt  user  for  upper  and  lower  threshold  values  4c/ 

/  4(  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4C  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  / 

printf ("  \n\n  Input  upper  threshold:>") ; 

scanfCyd",  &upthresh) ; 
printf ("  \n\n  Input  lower  threshold :>") ; 
scanf("yd**,  ftdownthresh) ; 

/  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  4c  4c  4c  4c  c|c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  *4:/ 

/♦  Create  file  to  output  the  thresholded  array  for  use. 4c/ 

/-  4c 4( 4c 4c 4c 4c 4‘ 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c ?Jc 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c/ 

sprintf (threshf ile,  "*/,«. thresh",  infilename); 

CREATE_FILE(outfile,  threshf ile,  "The  Thresholder") 

/>p4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c44c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c4c/ 

/4c  This  part  actually  inputs  the  file,  thresholds  the  4c/ 

/*  grey  scale  values,  and  writes  out  either  a  255  for  4c/ 

/4c  white  if  it  is  between  the  up  and  down  thresh  values4c/ 

/4'  and  a  0  if  it  is  outside  this  window.  4c/ 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4(  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4- 4c  4c  4c  4c  4c  4c  4c  4^  4c  4c  4c  4c  4c  4c  4^  4c  4c  4c  4c  4:  / 

loopij( image. ROW,  image. COL) { 

f scanf  (inf  ile,  "‘/.dXn",  &image. array Ci]  [j] ) ; 
if ((image. array [i]  [j]  >=  downthresh) 

(image.array [i]  Cj]  <=  uptliresh))  image. arr ay [i]  [j]  =  256; 
else  image.array [i] [j]  =  0; 
f printf  (outf ile,  "y,d\n",  image. array [i]  [j]) ; 

} 
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/*  Tell  the  user  where  the  output  file  is  located.  */ 

printf("\n  Thresholded  and  binarized  image  created  eind  saved  in:  7,s\n\n",  threshfile); 
/*  THE  END  ♦/ 
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